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SUMMARY 


Introduction 


The  objective  of  this  investigation  was  to  develop  an  evaluation 


procedure  for  determining  the  blast  protection  afforded  by  existing  NSS- 


basically  of  (1)  a method  for  determining  the  air  blast  loading  on  the 


structure  and  structural  elements,  (2)  a method  for  determining  the  dy- 


ing the  failure  criterion  for  each  structural  member  of  interest.  The 


analytical  method  used  was  to  establish  the  resistance  function  for  each 


wall  or  floor  element  by  considering  the  approximate  response  mode  and 


by  assuming  that  the  element  was  subjected  to  a uniformly  distributed 


static  load.  The  member  was  then  transformed  into  an  equivalent  single- 


degree-of-freedom  dynamic  system,  and  the  equation  of  motion  solved  on  a 


computer  using  a numerical  integration  procedure. 


Background 


The  primary  interest  from  the  inception  of  this  study  has  been  the 


type  structures  and  private  residences.  The  procedure  developed  consists 


namic  structural  response  up  to  collapse,  and  (3)  a method  for  establish- 


development of  an  evaluation  procedure  for  analyzing  the  dynamic  response 


and  collapse  oi  the  building  system.  However,  the  complexity  of  a com- 


prehensive evaluation  procedure  for  a building  system  necessitated  that 


important  building  elements  be  treated  first.  Therefore,  the  initial 


effort  in  the  program  was  directed  primarily  toward  the  development  of 


mathematical  models  to  analyze  the  dynamic  response  and  collapse  of  var- 


ious types  of  one-way  action  walls.  Also,  the  behavior  of  window  glass 


and  steel-frame  connections  were  examined  as  part  of  the  initial  study. 
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The  analytical  procedures  were  then  extended  to  include  two-way  walls, 
and  a probability  approach  was  incorporated  into  the  evaluation  procedure 
Next,  mathematical  models  were  developed  to  analyze  dynamically  loaded 
reinforced  concrete  floor  systems  of  various  types,  and  wood- joist  floors 
During  the  conduct  of  the  research  program,  the  evaluation  procedure  hrs 
been  used  to  predict  the  collapse  overpressure  of  a large  number  of  ex- 
terior walls  and  floors  over  basement  areas  for  existing  NSS  buildings. 

As  part  of  this  effort,  the  relative  collapse  strength  of  the  exterior 
walls  and  frame  of  a multistory  steel-frame  building  was  examined. 

A summ^x'y  of  the  evaluation  procedure  for  existing  structures  is 
contained  in  this  final  report.  Also  included  is  a flow  chart  for  a 
computer  program  to  analyze  & building  subsystem,  and  an  analysis  of  the 
blast  resistance  of  basement  walls  located  in  areaways  of  Emergency  Oper- 
ating Centers  (EOCs).  An  appendix  of  the  report  contains  a complete 

I listing  of  all  computer  programs  developed  during  the  study  to  analyze 

1 

, dynamically  loaded  wall  and  floor  elements. 

» 

\ 

Discussion 

The  computer  programs  fcr  the  evaluation  of  existing  structures  were 
developed  as  individual  programs  to  analyze  various  types  of  wall  and 
floor  elements.  Although  this  approach  permitted  the  analysis  of  actual 
structures  to  be  made  sooner  than  would  otherwise  be  possible,  as  well  as 
being  convenient  for  correlation  of  analytical  models  witb  experimental 
data,  there  was  a need  to  develop  a computer  program  to  analyze  the 
building  system.  As  the  next  logical  step  in  the  development  of  an  over- 
all building  program,  a flow  chart  was  developed  for  a building  subsystem 
The  subsystem  selected  was  all  exterior  and  interior  walls  on  one  floor 
of  a building.  The  report  presents  the  flow  chart  for  a computer  program 
to  analyze  each  wall  on  a room-by-room  basis  as  the  blast  wave  moves 
through  the  building, 
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The  collapse  strength  of  reinforced  concrete  basement  walls  was  ex- 
amined to  determine  the  feasibility  of  retrofitting  EOCs  with  doors  to 
resist  the  10-psi  blast  overpressure  level.  Although  mathematical  models 
have  been  developed  for  walls  with  window  openings,  the  evaluation  pro- 
cedures were  not  extended  to  include  walls  with  door  openings.  Since 
there  was  insuff icient  time  to  develop  a generalized  model  for  calculat- 
ing the  resistance  and  response  of  the  wall  configuration  of  interest, 
the  following  three-phase  approach  was  used: 

(1)  A detailed  yield-line  analysis  of  several  specific  reinforced 
concrete  walls  with  door  openings  was  made  to  establish  the  static  re- 
sistance over  a limited  range  of  wall  widths. 

(2)  The  computer  program  for  analyzing  the  collapse  of  wall  elements, 
developed  by  SRI  for  DCPA,  was  used  to  calculate  the  resistance  of  walls 
without  door  openings.  The  results  were  then  compared  with  those  obtained 
from  the  yield-line  analysis  for  walls  with  door  openings  to  determine  the 
feasibility  of  using  the  existing  computer  program  to  simulate  the  dynamic 
response  of  walls  with  door  openings.  If  the  resistances  for  the  two  wall 
types  was  found  to  be  not  comparable,  then  it  would  be  necessary  to  hand 
calculate  a resistance  function  for  each  wall  case. 

(3)  An  existing  finite  element  computer  program  was  used  to  analyze 
the  static  behavior  for  a few  cases  of  walls  with  door  openings  to  deter- 
mine if  shear  or  stress  concentrations  could  conceivably  produce  a wall 
failure  not  predictable  by  the  other  analyses. 


The  various  analyses  led  to  a few  general  conclusions  concerning 
the  collapse  of  blast  loaded  reinforced  concrete  basement  walls  with  do.  r 
openings  and  located  in  areaways.  First,  for  reinforced  concrete  walls 
8- in.  thick  or  thicker,  and  not  over  10-ft  high,  it  is  probable  that  the 
wall  strength  of  the  weakest  code-designed  wall  is  sufficient  to  resist 


S-3 


umaUiiaittijH 


all 


' %■;  a^-»^seaw^s»saH^*«a5?  jsseu^k*®*-  -;  -_i 


fce 


a 10-psi  blast  loading  if  the  horizontal  distance  from  the  edge  of  the 
door  opening  to  the  areaway  support  wall  is  less  than  coproximately 
20  in.  (1^  = 84  in.). 
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Second,  for  8-in. -thick  walls  with  horizontal  distance  between  door 
opening  and  areaway  wall  greater  than  20  in.,  it  will  be  necessary  t 
strengthen  the  wall  in  the  vicinity  of  the  door  opening  so  as  to  upgrade 
the  wall  to  the  10-psi  blast  overpressure  level. 
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Third,  for  reinforced  concrete  basement  walls  12-iu  thick  or  thicker, 
the  blast  strength  can  be  expected  to  be  approximately  equal  to  or  greater 
than  the  10-psi  blast  overpressure  criterion  for  all  wall  conditions. 
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ABSTRACT 

The  ob.iociivc  of  the  overall  research  program  is  to  develop  on 
evaluation  procedure  applicable  to  existing  NSS-tvpe  structures  and 
private  homes.  Pau*.  eflorts  liave  been  concerned  with  examining  exte- 
rior wr.i  is*;  window  glass;  steel  1 rame  connections*  applications  to 
actual  Inn Idings;  reinforced  concrete  i loor  systems,  including  re- 
strained si.  . wood-joist  floors;  and  the  dynamic  inelastic  analysis 
ol  a steel  frame  building.  Since  this  is  the  i inal  report  in  tins 
effort,  a summary  of  the  evaluation  procedure  lor  existing  structures 
is  presented  in  the  report.  Also  included  is  the  flow  chart  devel- 
oned  for  a computer  program  to  analyse  a building  subsystem;  i.e., 
the  dynamic  response  and  collapse  of  all  exterior  and  interior  walls 
on  one  floor  level  of  a building.  An  analysis  made  to  determine  the 
blast  resistance  of  basement  walls  ol  Emergency  Operating  Centers  is 
presented.  Finally,  the  report  contains  a complete  listing  ol  all 
computer  programs  developed  during  the  project  lor  analyzing  the 
dynamic  response  and  collapse  of  wall  and  floor  elements. 
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INTRODUCTION 


Under  contract  to  the  Defense  Civil  Preparedness  Agency,  Stanford 
Research  Institute  is  developing  a procedure  for  the  evaluation  of  exist- 
ing structures  subjected  to  nuclear  air  blast.  The  objective  of  the 
program  i3  to  develop  an  evaluation  procedure  applicable  to  existing 
NSS-type  structures  and  private  homes.  This  report  covers  the  final 
phase  of  the  program. 


Background 

The  Defense  Civil  Preparedness  Agency  has  a number  of  problem  areas 
in  which  an  evaluation  procedure  for  existing  structures  can  be  applied. 
These  include: 


• Survival  and  injury  predictions 

• Debris  prediction 

• Damage  assessment 

• Selection  of  existing  structures  that  provide  the  best  protection 

• Selection  of  existing  structures  that  have  a potential  for 
modification  to  provide  blast  shelters. 


Even  with  the  availability  of  high-speed  computers,  it  was  apparent 
that  the  complexity  of  an  overall  building  evaluation  procedure  to  meet 
the  needs  of  DCPA  could  lead  to  considerable  unwarranted  computational 
effort  if  care  was  not  exercised  in  the  selection  of  the  methodology. 
Therefore,  relatively  simplified  air  blast  loading  and  room-filling 
procedures,  as  well  as  simplified  structural  response  analytical  methods 
have  been  used  in  the  evaluation  program. 


Although  the  primary  interest  from  the  inception  of  the  program  has 
been  in  the  behavior  and  collapse  of  the  building  system,  the  complexity 
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of  a comprehensive  evaluation  procedure  necessitated  the  establishment 
of  a priority  for  determining  which  structural  element  to  investigate 
first.  It  is  apparent  that  the  collapse  of  the  exterior  walls  of  most 
buildings  is  important  to  the  casualties  produced.  This  is  especially 
true  for  large  multistory  buildings  where  the  collapse  of  the  exterior 
and  interior  walls  could  result  in  a large  number  of  casualties  through 
ejection  from  the  building,  even  if  the  floors  and  frame  remained  in- 
tact. Since  one  of  the  primary  uses  of  a building  evaluation  procedure 
is  to  provide  input  for  prediction  of  survival  of  people  located  in 
buildings  subjected  to  nuclear  blast,  the  initial  research  effort  was 
directed  towards  the  development  of  a method  to  determine  the  response 
and  collapse  of  exterior  wall  elements. 


Subsequent  to  the  development  of  the  wall  evaluation  procedure,  the 
procedures  for  analyzing  the  collapse  of  floor  systems  were  developed. 
Although  there  were  insufficient  funds  in  the  program  to  develop  a pro- 
cedure for  evaluating  the  collapse  of  structural  frames,  it  was  possible 
to  use  an  available  elastic  and  inelastic  computer  program  to  analyze 
the  dynamic  response  of  a steel  frame  building  and  estimate  the  frame 
collapse  overpressure.  During  the  final  phase  of  the  research,  a com- 
puter flow  diagram  was  ueveloped  for  analyzing  a building  subsystem; 
i.e.,  for  predicting  the  time  sequence  of  collapse  of  all  exterior  and 
interior  walls  on  one  floor  of  a building  on  a room-by-room  basis. 
However,  the  computer  program  could  not  be  written  within  the  level  of 
effort  of  the  contract. 


Past  reports  in  this  program  have  been  concerned  with  examining  ex- 
terior walls  (Ref.  1),*  window  glass  (Ref.  2),  steel-frame  connexions 
(Ref.  3),  two-way  action  walls  (Ref.  4),  applications  to  NSS  buildings 


* References  are  listed  after  the  appendix. 


ifi 


I 

(Refs.  5 and  6),  reinforced  concrete  floor  systems  (Refs.  7 and  8),  and 
wood-joist  floors,  and  frame  analysis  (Ref.  8). 

Report  Organization 

Since  this  is  the  final  report  on  the  research  el  fort,  a summary  of 
the  evaluation  procedure  is  presented  in  Section  II.  A flow  chart  for 
the  analysis  of  all  walls  on  one  floor  level  of  a building  (a  building 
subsystem)  is  presented  in  Section  III  "Building  System  Program."  The 
analysis  of  basement  walls  located  in  areaways  is  given  in  Section  IV. 
During  the  project  for  evaluation  of  existing  structures,  computer  pro- 
grams were  developed  for  analyzing  the  dynamic  collapse  strength  of  three 
types  of  wall  elements  and  five  types  of  floor  system  elements.  The 
f listings  for  the  eight  programs  arc  included  in  the  Appendix. 
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Approach 

The  overall  approach  adopted  in  this  study  for  the  evaluation  of 
'xisting  structures  subjected  to  nuclear  air  blast  h:  i been  to  formu- 
late a procedure  for  examining  the  response  of  a structure  over  a range 
of  incident  overpressure  levels  to  determine  the  overpressure  at  which 
collapse  will  occur.  Basically,  the-  procedure  consists  ol  (J)  a method 
for  determining  the  air  blast  loading  on  the  structure  and  structural 
elements,  (2)  a method  for  determining  the  dynamic  structural  response 
up  to  collapse,  and  (3)  a method  for  establishing  the  failure  criterion 
for  each  structural  member  of  interest.  An  iterative  process  is  employed 
in  which  the  structural  response  can  be  examined  for  various  levels  of 
incident  overpressure  and  compared  with  a failure  criterion  to  predict 
the  overpressure  level  at  which  collapse  of  each,  member  will  occur. 

Wall  and  Floor  Evaluation  Procedure 

Introduction 

The  analytical  method  used  in  the  research  study  was  to  establish 
the  resistance  function  for  each  wall  or  floor  element  of  interest  by 
considering  the  approximate  response  mode  ard  by  assuming  that  the  element 
was  subjected  to  a uniformly  distributed  static  load.  The  member  was  then 
transformed  into  an  equivalent  single-dogrce-of-f reedom  dynamic  system  by 
tiio  use  of  the  transformation  factors  for  the  load,  resistance,  and  mass. 
The  equation  of  motion  was  then  solved  on  a computer  using  the  numerical 
integration  proce  'ure  described  in  Ref.  9.  Although  the  approach  has  been 
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to  use  established  analytical  procedures  wherever  possible,  it  has  been 
necessary  to  modify  and  adapt  current  procedures,  as  well  as  develop 
new  methods,  for  specific  uses. 

The  method  followed  in  developing  the  wall  and  floor  evaluation  pro- 
cedure was  to  (1)  develop  a mathematical  model  for  each  element  of  inter- 
est, (2)  prepare  the  computer  program,  and  (3)  verily  the  analytical 
predictions  with  the  available  published  test  information  on  the  dynamic 
response  and  collapse  of  wall  and  floor  elements. 

Although  the  mathematical  models  were  fortmilated  by  using  established 
analytical  procedures,  as  noted  in  the  referenced  reports  on  the  evalua- 
tion procedure  for  existing  structures,  the  available  published  test  data 
were  adequate  for  correlation  with  only  some  of  the  analytical  models. 
However,  for  other  cases*  there  was  a lack  of  definitive  experimental 
information  that  adequately  described  the  load-response  relationship  up 
to  collapse.  Although  all  mathematical  models  could  not  be  correlated 
sufficiently  with  appropriate  experimental  data,  the  use  of  probability 
functions  i.  the  procedures  for  predicting  the  incipient  collapse  over- 
pressure o tuc  elements  makes  the  use  of  precise  resistance  functions 
less  critical  than  would  otherwise  be  the  case. 

For  the  evaluation  of  existing  structures,  failure  implies  collapse 
or  disintegration  of  the  structural  element,  furthermore,  the  predicted 
collapse  overpressures  calculated  are  for  the  incipient  collapse  of  the 
element,  which  is  defined  as  that  point  in  the  response  where  the  wall 
or  floor  can  be  considered  as  on  the  threshold  of  collapse.  The  incip- 
ient collapse  overpressure  is  just  sufficient  in  magnitucie  to  cause  a 
collapse  of  the  element. 


* For  example,  the  inelastic  response  up  to  collapse  of  a two-way 
lightly  reinforced  concrete  wall  with  a wii.dov:  opening  and  with 
vertical  in-plane  forces  acting  on  the  wall. 
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Wall  Analysis 

The  three  basic  types  of  exterior  walls  considered  in  the  evaluation 
procedure  are  unroinforced  concrete  or  masonry  unit  walls  without  arching, 
unreinforced  concrete  or  masonry  unit  walls  with  arching,  and  reinforced 
concrete  walls.  The  details  of  the  development  of  the  wall  evaluation 
procedures  are  presented  in  Ref.  1 for  one-way  action  walls  and  Ref.  1 
for  two-way  walls. 

For  unroinforced  masonry  unit  walls  without  arching  and  for  rein- 
forced concrete  walls,  resistance  functions  were  developed  for  the  follow- 
ing type  of  wall  support  conditions: 

• Two-way,  simply  supported  on  four  edges 

• Two-way,  fixed  on  four  edges 

• Two-way,  fixed  on  vertical  edges;  simply  supported  on 
horizontal  edges 

• Two-way,  simply  supported  on  vertical  edges;  fixed  on 
horizontal  edges 

• One-way,  simply  supported  on  opposite  edges 

• One-way,  fixed  on  opposite  edges 

• One-way  propped  cantilever 

• One-way,  cantilever. 

For  unreinforced  walls  with  arching,  resistance  functions  were  developed 
lor  one-  and  two-way  action  walls  with  rigid  supports. 


Floor  System  Analvsis 


One  of  the  interests  of  DCPA  has  been  the  possible  use  of  basements 
of  existing  XSS  structures  as  blast  shelter  areas,  and  therefore  the 
research  effort  was  primarily  concerned  with  developing  methods  for  pre- 
dicting the  collapse  of  various  types  of  reinforced  concrete  floor  systems. 
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However,  the  resistance  function  for  wood-joist  floors  was  also  developed. 
The  details  of  the  floor  system  evaluation  procedures  are  presented  in 
Refs.  7 and  8. 

The  types  of  floor  elements  included  m the  evaluation  procedure 
are  as  follows: 

• One-  and  two-way  reinforced  concrete  solid  slabs 

• Two-way  restrained  reinforced  concrete  solid  slab 

• Reinforced  concrete  support  beam  (including  T-beam  and  joist) 

• Structural  steel  support  beam  (including  composite  action) 

• Reinforced  concrete  flat  slab 

• Reinforced  concrete  flat  plate 

• Wood-joist  floor 

Probability  Considerations 

The  analysis  of  actual  building  elements  subjected  to  nuclear  air 
blast  requires  the  assumption  of  values  for  many  of  the  physical  proper- 
ties of  the  structure  that  are  unknown  and  cannot  be  measured  without  an 
unwarranted  amount  of  effort.  Similarly,  assumptions  are  also  required 
in  the  determination  of  the  parameters  defining  the  load  acting  on  the 
building  element.  Since  precise  values  cannot  usually  be  specified  for 
many  of  the  parameters  that  influence  the  collapse  of  actual  structures, 
a probabilistic  approach  was  formulated  to  provide  a realistic  evalua- 
tion of  existing  structures  subjected  to  nuclear  air  blast  (Ref.  4). 

It  is  apparent  that  the  determination  of  the  incipient  collapse 
overpressure  for  a given  wall  or  floor  depends  on  a number  of  variables, 
at  least  some  of  which  must  be  considered  to  be  randomly  distributed. 
Although  the  probability  distribution  of  these  random  variables  may  be 
determined  fairly  easily,  at  least  as  approximations,  the  extension  of 
this  step  to  determine  the  probability  distribution  of  the  resulting 
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collapse  overpressure  is  not  so  easy.  Since  it  was  not  possible  to 
obtain  an  exact  distribution,  it  was  decided  to  use  Monte  Carlo,  or 
simulation,  techniques  to  determine  the  probability  distribution  for 
the  incipient  collapse  overpressure. 

This  technique  uses  a set  of  mathematically  simulated  wall  or  floor 
elements,  each  of  which  possesses  the  characteristics  of  some  real  wall 
or  floor  to  determine  an  approximate  distribution  of  the  incipient  col- 
lapse overpressure.  This  set  of  simulated  walls  or  floors  is  prepared 
by  selecting  the  parameters  to  be  varied  and  determining  the  values  of 
these  parameters  by  randomly  sampling  their  corresponding  probability 
distribution  functions.  Each  simulated  wall  or  floor  is  then  analyzed 
by  using  the  deterministic  equations  developed  previously.  The  results 
of  these  analyses  provide  a probability  distribution  of  the  incipient 
collapse  overpressure.  It  should  be  noted  that  the  collapse  overpres- 
sure of  a wall  or  floor  element  can  also  be  calculated  deterministically 

Air  Blast  Loading 

An  important  factor  in  the  evaluation  of  existing  structures  sub- 
ject .1  to  nuclear  air  blast  is  the  determination  of  the  pressure-time 
function  on  each  structural  element  of  interest.  This  is  a complex 
problem,  since,  even  before  the  blast  wave  interacts  with  the  structure, 
the  blast  wave  is  influenced  by  many  factors,  such  as  weapon  yield  and 
location,  weather  conditions,  terrain,  surface  type,  and  blast  shielding 
Even  if  it  were  assumed  that  the  free-field,  pressure-time  relationship 
were  known  frr  a blast  wave  incident  on  the  side  of  a building,  the 
determination  of  the  loading  function  on  a wall  or  floor  element  is 
difficult  because  of  the  interaction  processes.  The  primary  difficulty 
arises  because  the  structural  element  responds  to  the  differential  or 
net  loading,  which  requires  a knowledge  of  the  loading  on  both  the  front 


and  back  surfaces 
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For  the  evaluation  of  existing  structures  subjected  co  nuclear  air 
blast,  it  was  assumed  tha4-  the  blast  wave  before  interacting  with  the 
structure  was  an  ideal  Mach  waveform  propagating  radially  outward  over 
an  ideal  reflecting  surface.  It  was  also  assumed  that  tha  duration  of 
positive  phase  of  the  dynamic  overpressure  was  equal  to  that  of  the  side- 
on  overpressure  and  that  the  negative  phase  could  be  neglected  for  struc- 
tural response  calculations.  The  method  used  to  determine  the  pressure- 
time function  of  an  exterior  wall  is  presented  in  detail  in  Ref.  4,  and 
involves  the  calculation  of  an  exterior,  interior,  and  net  loading. 

To  calculate  the  average  load-time  history  on  the  exterior  wall,  the 
conventional  air  blast  loading  scheme  for  a closet!  rectangular  block  is 
used  (Ref.  10).  For  the  front  face  of  a building  with  window  openings, 
the  conventional  scheme  is  modified  by  using  the  weighted  average  clear- 
ing distance  presented  in  Ref.  11.  To  calculate  the  interior  pressure 
build  up  resulting  from  the  air  blast  entering  the  building  through  open- 
ings, the  room-filling  procedure  presented  in  Ref.  12  is  used.  For  each 
specific  problem,  the  net  wall  loading  is  obtained  by  a simple  summation 
of  the  exterior  and  interior  pressure-time  histories. 

In  addition  to  the  ideal  air  blast  loading,  the  evaluation  procedure 
for  exterior  walls  includes  the  following  loading  schemes: 

• Triangular  load 

• Rectangular  load 

* URS  shock  tunnel  load 

* Arbitrary  load. 

For  the  dynamic  analysis  of  floor  systems  subjected  to  nuclear  air 
blast,  twe  load-time  functions  were  included  in  the  evaluation  procedure. 
The  first  load  type  was  equal  to  the  free-field  blast  overpressure,  except 
with  a rise  time  equal  to  the  travel  time  of  the  wave  front  across  the 
floor  panel.  The  second  load  type  was  equal  to  the  room-filling  pressure 
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resulting  from  the  interaction  of  an  ideal  air  blast  wave  with  n structure 
with  window  openings.  In  addition,  the  floor  evaluation  procedure 
includes  an  arbitrary  load  shape. 

It  should  be  noted  that  although  the  net  load-time  1 unction  resulting 
from  a nuclear  air  blast  is  calculated  so  as  to  analyze  the  dynamic  re- 
sponse of  a wall  or  floor  element,  a description  oi  the  net  load-time 
function  is  not  too  meaningiui  for  comparing  collapse  predictions  lor 
elements  of  various  structures.  Therefore,  the  predicted  collapse  over- 
pressures given  in  this  study  are  t.he  peak  incident  overpressures  ot  the 
free-field  blast  wave  that  results  in  collapse  oi  the  element. 


Applications 

As  part  oi'  an  integrated  program  to  develop  a survey  procedure  lor 
all  nuclear  weapon  effects,  Research  Triangle  Institute  (RTI)  made  an 
initial  on-site  field  survey  during  November  1970  of  five  NSS  buildings 
in  Detroit,  Michigan.  The  survey  was  conducted  primarily  to  obtain  a 
complete  structural  description  oi  buildings  that  would  be  adequate  for 
predicting  building  damage  and  casualties.  The  results  oi  the  field  sur- 
vey were  recorded  on  forms  and  included  sketches  and  photographs.  A com- 
plete copy  of  this  information,  together  with  the  building  plans,  was 
provided  to  SKI  for  analysis  oi  the  buildings.  The  results  oi  the  dynamic 
analysis  of  the  exterior  walls  of  the  five  Detroit  buildings  are  presented 
i n Ref . 5 . 

To  provide  additional  input  information  for  the  development  of  the 
all-effects  survey,  RTI  made  a second  on-site  field  survey  in  July  1971 
ol  five  buildings  in  the  vicinity  of  Greensboro,  North  Carolina.  As  in 
the  analysis  of  the  Detroit  buildings  presented  ir.  Ref.  5,  two  dynamic 
analyses  were  made  of  each  of  the  Greensboro  buildings.  The  first  anal- 
ysis was  made  using  the  data  obtained  during  the  RTI  on-site  survey. 
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A second  analysis  of  the  same  building  was  then  made  independently  using 
data  obtained  from  the  actual  building  plans.  This  procedure  provided  a 
check  on  the  adequacy  of  the  survey  technique  and  the  propose-  . ield 
survey  data  form,  and  emphasized  areas  of  possible  improvr  s'  . fhe 
results  of  the  dynamic  analysis  of  the  exterior  walls  of  tu.  five 
Greonsboro-Hig.i  Point  buildings  are  presented  in  Ref.  6. 


In  addition  to  the  two  research  studies  to  develop  an  aLl-effects 
shelter  survey  procedure,  RTI  also  collected  data  on  a national  sample 
of  NSS  ouildin's  for  the  Engineering  Directorate  of  DCPA  (Ref.  13).  Of 
the  219  NSS  buildings  compr^ sir."  the  national  sample,  the  SRI  evaluation 
procedure  was  used  to  predict  the  collapse  overpressure  of  the  exterior 
walls  for  50  of  the  buildings  and  of  floors  over  basement  areas  for  36 
of  the  buildings.  Since  the  results  of  the  dynamic  analyses  of  the  walls 
and  floors  of  actual  buildings  are  of  interest  to  the  evaluation  of  ex- 
isting structures  program,  a short  summary  of  the  findings  are  presented 
in  this  report. 


Walls 

The  collapse  predictions  for  the  exterior  walls  of  NSS  buildings 
required  the  dynamic  analysis  of  137  wall  cases.  These  walls  represent 
59  NSS  buildings,  which  can  be  categorized  ns  15  load-bearing  wall  build- 
ings, 23  structural  steel  frame  buildings,  and  21  reinforced  concrete 
frame  buildings.  Figure  1 shows  a histogram  and  cumulative  frequency 
distribution  of  the  mean  collapse  overpressure  for  the  137-wall  popula- 
tion. The  data  indicate  that  for  the  59  sample  buildings,  50  percent 
of  the  exterior  walls  arc  predicted  to  have  a mean  collapse  overpressure 
of  6 psi  or  less,  and  90  percent  are  predicted  to  have  a mean  collapse 
overpressure  of  22  psi  or  less. 
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The  effect  of  the  type  of  frame  on  the  collapse  strength  of  exterior 
walls  is  indicated  by  the  cumulative  frequency  distributions  for  the  wall 
col1 apse  overpressures  shown  in  Figure  2 for  the  three  major  building 
frame  categories.  Although  the  data  are  considered  as  insufficient  to 
establish  quantitatively  the  effect  of  frame  type  on  wall  collapse  over- 
pressure level,  the  trends  in  the  data  are  apparent.  The  mean  values  of 
the  collapse  overpressures  for  walls  are  about  -1.5  psi  for  load-bearing 
wall  buildings,  6 psi  for  reinforced  concrete  frame  buildings,  and  10  psi 
for  steel  frame  buildings. 

Floors 

The  collapse  predictions  for  the  floor  systems  over  basement  areas 
of  NSS  buildings  required  the  dynamic  analysis  of  82  floor  cases,  which 
represent  36  buildings.  Figure  3 shows  a histogram  and  cumulative  fre- 
quency distribution  of  the  collapse  overpressures  for  all  floors.  As 
noted  on  the  figure,  the  collapse  overpressure  for  floors  over  basement 
areas  ranged  from  about  2 to  55  psi,  with  50  percent  of  the  floors 
predicted  to  collapse  at  7 psi  or  less  and  90  percent  predicted  to 
collapse  at  18  psi  or  less. 

Frame  Analysis 

A continuing  concern  in  evaluating  the  collapse  overpres  ure  of 
existing  buildings  has  been  the  relative  blast  strength  of  the  exterior 
walls  and  frames  oi  multistory  buildings.  To  predict  the  collapse  over- 
pressure of  the  exterior  walls  for  the  existing  NSS  buildings  discussed 
in  the  previous  subsection,  it  was  assumed  that  the  structural  frame 
did  not  collapse  at  a lower  overpressure  than  that  predicted  for  the 
exterior  walls.  For  weak-walled  buildings,  such  an  assumption  is  reason- 
able. In  fact,  it  is  often  assumed  for  the  analysis  of  blast  loaded 
frame  buildings  that  the  exterior  walls  can  be  considered  as  frangible, 
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(36  buildings,  32  floor  cases) 
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COLLAPSE  OVERPRESSURE  - psi 
(a)  Histogram  for  all  floor  cases 


COLLAPSE  OVERPRESSURE  - psi 

(b)  Cumulative  frequency  distribution  for  all  floor  cases 


FIGURE  3 HISTOGRAM  AND  CUMULATIVE  FREQUENCY  DISTRIBUTION  OF 
THE  MEAN  COLLAPSE  OVERPRESSURE  FOR  THE  FLOORS  OVER 
BASEMENT  AREAS  OF  36  BUILDINGS 


and  therefore,  that  the  wall  loading  transferred  to  the  frame  can  be 
approximated  by  an  impulse  loading.  However,  for  many  of  the  actual 
buildings  analyzed,  the  strength  of  the  exterior  walls  under  blast  load- 
ing was  sufficiently  high  to  make  it  doubtful  that  the  frame  could  survive 
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Three  different  types  of  frame  analyses  were  performed:  (1)  an 

elastic  analysis  to  determine  the  strength  of  the  inset  walls  on  the  ends 
of  the  building  acting  as  shear  walls,  (2)  elastic  frame  analyses  at 
various  overpressure  levels,  and  (3)  inelastic  frame  analyses  at  various 
overpressure  levels.  The  exterior  walls  of  the  building  were  previously 
found  to  have  an  incipient  collapse  overpressure  (50  percent  probability; 
of  15.7  psi  (Ref.  6),  and  therefore  the  blast  loading  for  the  frame  anal- 
yses are  calculated  for  a box-type  building  with  nonfailing  exterior  walls 
with  window  openings. 

The  results  of  the  analyses  provide  an  estimate  of  the  collapse 
strength  of  the  structural  steel  frame  of  the  bank  building  under  blast 
loading,  even  though  the  computer  program  used  cannot  predict  frame  col- 
lapse. The  results  of  the  first  analysis,  for  the  shear  wall  building, 
indicated  that  the  cracking  of  the  exterior  walls  acting  as  shear  walls 
occurs  at  an  incident  overpressure  level  of  less  than  2 psi,  since  the 
moment  ratios  (computed  moment/yield  moment)  for  the  shear  walls  are 
above  35  for  a 2-psi  incident  overpressure  level.  Therefore,  it  was 
assumed  for  the  other  two  types  of  analyses  that  the  inset  end  walls 
acting  as  shear  walls  contributed  negligible  resistance  to  the  frame, 

, '•  that  the  analysis  of  the  frame  acting  alone  should  adequately  me  lei 
the  building  behavior  under  lateral  load. 

An  elastic  analysis  of  the  frames  for  16  psi,  which  approximated 
the  incipient  collapse  overpressure  of  the  exterior  walls,  indicated  a 
maximum  stress  ratio  (computed  stress/stress  at  yield)  of  about  20.  Since 
the  elastic  analysis  is  much  simpler  than  the  inelastic  analysis,  the 
frames  were  then  analyzed  for  elastic  behavior  at  5-,  4-,  and  3-psi  over- 
pressures to  obtain  an  estimate  of  the  frame  strength.  The  results  of 
the  elastic  analyses  indicated  that  the  strength  of  the  frames  was  in  the 
range  of  the  lower  overpressures  examined,  and  therefore  the  inelastic 
frame  analyses  were  run  at  3-,  4-,  and  5-psi  overpressure  levels. 
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The  inelastic  analyses  indicated  maximum  ductility  ratios  at  3 ps* 


of  13.4  for  the  beams  and  20.6  for  the  columns,  and  maximum  moment  ratios 


of  about  1.64  for  the  beams  and  columns.  At  the  l-psi  overpressure  level, 


the  maximum  ductility  ratios  were  29.5  in  the  beams  and  42.2  in  the  columns, 


and  the  maximum  moment  ratios  were  in  excess  of  2.  A simplified  hand  cal- 


culation indicated  that  the  P-A  effect,  which  is  not  included  in  the  com- 


puter program,  would  increase  some  of  the  moment  ratios  by  over  50  percent. 


The  calculated  lateral  deflection  of  the  top  story  of  the  building  was 


about  21  ft  for  the  3-psi  overpressure  level,  and  47  ft  for  the  4-psi  level, 


If  it  is  assumed  that  the  frame  would  collapse  at  a ductility  ratio  of 


about  50,  then  the  estimated  collapse  overpressure  is  between  3-,  and  4-psi 


incident  overpressure  level.  The  actual  blast  strength  could  be  much  less, 


since  the  effect  of  the  axial  column  load  (P-A  effect)  and  frame  collapse 


mechanisms,  such  as  column  buckling  or  instability,  are  not  accounted  for 


in  the  analytical  procedure. 


It  should  be  noted  that  the  frame  of  the  "arth  Carolina  National  Bank 


building  appears  to  be  constructed  of  relatively  light  structural  shapes 


that  may  not  necessarily  be  typical  of  most  NSS  structures.  In  any  event, 


howet'er,  the  analysis  indicated  that  the  blast  resistance  of  the  frame  of 


the  building  was  much  less  than  (possibly  only  one-fourth)  that  of  the  ex- 


terior walls.  This,  of  course,  is  an  important  consideration  in  p reel ic t- 


ing  either  building  damage  or  casualties. 


Building  System  Computer  Program 


Since  the  inception  of  the  evaluation  project,  the  intention  has 


been  to  develop  a procedure  for  the  analysis  of  a building  system  that 


would  be  applicable  to  various  requirements  of  DCPA.  For  predicting 


damage  to  NSS  structures  in  this  program,  it  was  assumed  that  each  wall 


analyzed  could  be  treated  as  though  it  were  the  front  face  of  the 


building  with  an  ideal  blast  wave  advancing  at  noirnnl  incidence  to  it, 


, — ^ 


The  time-sequence  of  collapse  of  various  building  elements,  or  the  effect 
of  the  engulfment  of  the  building  by  the  blast  wave,  is  not  directly  ac- 
counted for  in  the  current  computer  programs.  For  example,  to  use  the 
computer  codes  for  predicting  the  collapse  oi  all  exterior  walls  of  a 
building  (i.e.,  front,  side,  and  back)  for  the  blast  approaching  from 
one  direction  it  is  necessary  to  use  engineering  judgment  in  providing 
realistic  input  data.  Such  a procedure  was  used  to  correlate  analytical 
predictions  with  nuciear  field  tests  of  brick  load-bearing-wall  houses 
(Ref.  4). 

In  order  to  systematize  the  building  evaluation  procedure,  a flow 
diagram  was  prepared  during  the  current  effort  that  outlines  the  computer 
analysis  of  all  wall  elements  on  one  story  of  a building.  The  results 
are  presented  in  Section  III. 


III  BUILDING  SYSTEM  PROGRAM 


The  purpose  of  this  phase  of  the  research  was  to  examine  a method 
for  systematizing  the  collapse  predictions  for  blast  loaded  buildings. 

Since  the  inception  of  the  existing  structures  evaluation  project,  the 
intention  has  boon  to  develop  a procedure  for  the  analysis  of  a building 
system  that  would  be  applicable  to  various  requirements  of  DCPA,  such  as 
damage  assessment,  survival  and  injury  predictions,  and  debris  predictions. 
Because  of  the  complex  nature  of  analyzing  the  response  and  collapse  of 
buildings  under  dynamic  loading,  as  well  as  the  difficulty  of  calculating 
precise  blast  loadings  on  each  element  in  a complex  building  geometry, 
the  approach  has  been  to  establish  a sound  technical  basis  for  the  anal- 
ysis of  each  building  element.  It  lias  been  necessary  to  derive  realistic 
mathematical  response  models  before  computer  codes  could  be  prepared  for 
the  various  structural  elements  of  interest.  Although  the  original  in- 
tent was  to  develop  subroutines  for  each  element  for  the  eventual  incor- 
poration into  a single  computer  program,  the  need  to  analyze  existing 
buildings  preceded  the  completion  of  a building  system  piogram.  Instead, 
relatively  complete  computer  programs,  as  opposed  to  building  element 
subroutines,  were  prepared  ior  each  building  element;  i.c.,  for  each 
element  the  computer  code  consists  of  a main  routine,  a subroutine  to 
calculate  the  resistance  function,  a subroutine  to  calculate  transforma- 
tion factors,  subroutines  to  calculate  the  exterior  and  interior  blast 
pressures  and  net  load  on  the  clement,  and  a subroutine  for  calculating 
the  probability  of  collapse.  The  development  of  those  individual  element 
programs  diverted  some  effort  from  the  development  of  a building  system 
program;  however,  the  individual  programs  permitted  analyses  of  existing 
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buildings  to  be  performed  much  sooner  than  would  otherwise  have  been 
possible.  Also,  the  availability  of  individual  element  programs  was 
convenient  for  the  correlation  cf  experimental  data  with  analytical 
models. 

Essentially,  the  building  element  computer  programs  were  developed 
as  research  tools  for  use  in  developing  realistic  analytical  prediction 
models,  and  for  performing  limited  analyses  of  buildings  rather  than  for 
performing  a large  number  of  analyses  of  existing  buildings.  However, 
as  originally  intended,  it  has  become  apparent  that  a computer  program 
for  analyzing  a building  system,  or  at  least  a building  subsystem,  would 
be  useful.  Therefore,  during  this  phase  of  the  research  effort,  the 
feasibility  of  incorporating  the  previously  developed  computer  programs 
for  wall  analysis  into  a program  for  the  analysis  of  a subsystem  of  the 
overall  building  system  was  examined.  Specifically,  a relatively  de- 
tailed flow  diagram  was  prepared  that  out! tnes  the  procedure  for  analyz- 
ing all  exterior  and  interior  walls  on  one  story  of  a building.  During 
this  phase,  the  computer  flow  chart  was  prepared,  but  the  computer  pro- 
gram was  not  written. 

A subsystem  analysis  approach  was  chosen  as  the  most  expedient  and 
logical  next  step  in  the  development  of  an  overall  building  evaluation 
procedure.  Figure  <1  shows  a macroscopic  organizational  flow  chart  of  the 
proposed  program  to  be  used.  The  subsystem  is  one  floor  level  of  a build- 
ing that  can  be  oriented  at  any  angle  to  the  blast  wave  front.  For  a 
given  free-iield  overpressure  level,  the  net  loading  on  each  wall  element 
will  be  computed  and  the  wall  response  calculated  on  a room-by-room  basis 
as  the  blast  wave  moves  through  the  building. 

At  the  present  time  the  evaluation  procedure  has  the  capability  of 
calculating  the  exterior  pressure-time  environment  resulting  from  an  in- 
teracting blast  wave,  and  can  compute  the  resulting  interior  pressure 
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FIGURE  4 BUILDING  SUBSYSTEM  PROGRAM  MACROSCOPIC 
ORGANIZATIONAL  FLOW  CHART 
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build-up  to  a single  room.  For  the  subsystem  program,  it  will  be  necessary 
only  to  extend  the  capability  to  calculate  the  interior  pressure  in  a 
multiroom  complex  by  the  method  presented  in  Rci  . 12.  Also,  as  discussed 
previously,  the  mathematical  models  for  predicting  the  response  and  col- 
lapse of  walls  are  available.  The  remaining  task  consists  of  combining 
the  loading  and  response  models  into  a single  subsystem  program  that  in- 
cludes the  geometry  of  the  floor  of  a building. 

Figure  5 shows  a detailed  organizational  flow  chart  of  the  proposed 
subsystem  program.  Table  1 is  a list  of  abbreviations  used  in  the  flow 
chart . 


Table  1 


ABBREVIATIONS  USED 
IN  FLOW  CHART 


Abbreviation 


Word  Represented 


EXT 

INT 

OPNG 

FLR 

PR 

ARVD 

RM 

XRST 


EXTERIOR 

INTERIOR 

OPENING 

FLOOR 

PAIR 

ARRIVED 

ROOM 

NEAREST 
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IV  ANALYSIS  OF  BASEMENT  WALLS 

The  objective  of  this  phase  ol  the  el  fort  was  to  examine  the  blast 
resistance  of  exposed,  reinforced  concrete  basement  walls  with  door  open- 
ings to  determine  the  feasibility  of  retrofitting  EOCs  with  blast  doors. 
The  primary  purpose  was  to  determine  if  reinforced  concrete  basement  walls 
located  in  areaways  of  existing  buildings  could  resist  10-psi  blast  over- 
pressure. 

Approach 

In  past  studies,  the  collapse  strength  of  blast  loaded  walls  oi  ex- 
isting buildings  has  been  determined  for  various  types  and  configurations 
of  walls.  Although  mathematical  models  have  been  developed  for  walls  with 
window  openings,  the  procedures  were  not  extended  to  include  walls  with 
door  openings.  Since  there  was  insufficient  time  and  funds  to  develop  a 
generalized  model  and  computer  program  fcr  calculating  the  resistance 
and  collapse  cf  the  wall  configuration  of  interest,  the  following  three- 
phase  approach  was  used : 

(1)  A detailed  yield-line  analysis  of  several  specific  reinforced 
concrete  walls  w*th  door  openings  was  made  to  establish  the  static  re- 
sistance over  a limited  range  of  wall  widths. 

(2)  The  computer  programs  developed  for  the  building  evaluation 
procedure  for  DCPA  for  analyzing  the  sollapse  of  wall  elements  was  used 
to  generate  resistance  functions  for  walls  without  door  openings.  The 
results  were  then  compared  with  those  obtained  from  the  yield-line  anal- 
ysis for  walls  with  door  openings  to  determine  the  feasibility  of  using 
the  existing  computer  programs  to  simulate  the  dynamic  response  and 
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collapse  of  walls  with  door  openings.  If  Lne  resistances  for  the  two 
wall  types  was  found  to  be  not  comparable,  then  it  would  bo  necessary  to 
hand  calculate  a resistance  function  for  each  wall  case. 


(3)  An  existing  finite  element  computer  program  was  used  to  analyze 
the  static  behavior  for  a few  wall  cases  with  door  openings  to  determine 
if  shear  or  stress  concentrations  could  conceivably  produce  a wall  iailure 
not  predictable  by  the  other  analyses. 

Wall  Design 

The  basemen,  wall  considered  in  this  study  was  located  in  an  open 
areaway  such  that  the  wall  and  door  are  fully  exposed  to  the  air  blast 
effects.  For  simplicity,  a standard  door  opening  of  3 ft  8 in.  wide  by 
6 ft  8 in.  high  was  adopted;  this  is  a two-uni t-of -exit-width  door  open- 
ing as  specified  in  Ref.  15.  It  was  also  assumed  that  the  door  was  closed 
for  all  analyser  and  that  it  did  not  fail.  The  general  layout  oi  the 
basement  wall  analyzed  is  shown  in  Figure  6.  As  noted  in  Figure  6,  it 
was  assumed  that  the  wall  was  bounded  at  the  top  and  bottom  by  the  first 
story  and  basement  floors,  and  on  the  sides  by  the  vertical  areaway  walls. 
The  basement  wall  was  continuous  at  the  areaway  wall  intersection,  and  no 
interior  walls  abutted  the  basement  wall  in  the  vicinity  of  the  areaway. 
The  soil  backfill  adjacent  to  the  areaway  and  basement  walls  extended  to 
the  first  story  level. 

Since  specific  wall  details  were  not  provided,  it  was  assumed  that 
the  basement  walls  were  designed  according  to  the  1963  ACI  code  (Ref.  16). 
Pertinent  requirements  of  the  code  applicable  to  basement  walls  are: 


% 


• Area  of  horizontal  reinforcing  steel  is  not  less  than  0.0025 
times  the  area  of  the  reinforced  section  of  the  wall. 

• Area  of  vertical  reinforcing  steel  is  not  less  than  0.0015 
times  the  area  of  the  reinforced  section  of  the  wall. 
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FRONT  ELEVATION 


FIGURE  6 PLAN  VIEW  AND  FRONT  ELEVATION  OF  BASEMENT  WALL  USED 
IN  THE  ANALYSIS 
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• In  addition  to  the*  above,  two  No.  5 bars  are  required  around  the 
door  opening,  and  extending  a distance  of  2-1  in.  beyond  tne  open- 
ing. 

• Minimum  bar  size  is  No.  3 at  18  in.,  center-to-center. 

• Basement  wall  is  assumed  to  be  anchored  to  the  floors  and  area- 
way walls  with  reinforcement  equal  to  that  in  the  wall. 

• Minimum  basement  wall  thickness  is  8 in. 

In  addition,  since  the  mest  efficient  use  of  the  reinforcing  steel  ior 
the  basement  walls  with  soil  backfill  would  dictate  that  the  reinforce- 
ment be  placed  near  the  inside  face  of  the  wall,  it  was  assumed  that  the 
reinforcement  for  the  basement  wall  located  in  the  areaway  was  also  near 
the  inside  face. 

Since  it  was  assumed  that  the  basement  wall  in  the  areaway  was  iden- 
tical to  that  with  soil  backfill,  the  strength  of  a basement  wall  with 
minimum  code  re inf orcement  and  with  soil  backfill  was  checked  for  ade- 
quacy as  follows: 

The  lateral  static  soil  pressure  against  the  wall  is 
Ph  = Keh0, 

where  K = lateral  soil  coefficient  (assumed  as  C.30  for  well- 

C 

drained  soil' 
h = toil  depth 

0 = unit  weight  of  soil. 

For  height  of  wall,  Lv  = 10.0  ft, 

ph  = ( .3) (10) (100)  = 300  psf  (bottom  of  wall). 

The  maximum  applied  moment  for  a one-way  wall  simply  supported  at 
the  top  and  bottom  and  with  a triangular  loan  function  is 

M = 0.1283  PtLv, 

where  PT  - total  applied  load. 
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Therefore,  the  applied  moment  is  equal  to 

10 

M = ( . 1283)  (300x”~)  (10)  = 19?, 5 ft-lb/ft 
& 

For  a reinforced  concrete  section  with  tensile  reinforcement  only, 
the  ultimate  bending  moment  of  the  section  is 


\ = 4v/d-f> 

- A f 


where  a = 


0.85f 'b 

e 


For  a reinforced  concrete  basement  wall  with  minimum  thickness,  t =8  in., 


the  area  of  vertical  reinforcement  is 

As  = (8) (12) (.0015)  = 0.144  sq  in. /ft  of  wall, 
A = No,  3 @ 9 in. , 


d =8-(|+|x|)  = 7.06  in. 

For  f’  = 3000  psi  and  f , = 33,000  psi 


(.144) (33, 000) 
(.85) (3000) (12) 


= 0.1553, 


and  with  a coefficient  of  flexure  = 0,90,  the  ultimate  bending  moment 


is  therefore 


\ = (.90)  (. 


.1553 

144)  (33 ,000)  (7.06 — ) 


j = 29, 


862  in. -lb/ft 


Mu  = 2489  ft-lb/ft  . 

Since  Mu  > M,  a fully  buried,  10-ft-high  by  8-in. -thick  reinforced  con- 
crete basement  wall  with  minimum  code  reinforcement  is  adequate  to  re- 
sist the  pressure  from  a well-drained  soil.  Figure  7 illustrates  the 
reinforcing  steel  details  assumed  for  the  8-in. tick  basement  wall  used 
in  the  analysis. 


Analysis 


Various  types  of  analyses  were  performed  because  a mathematical 
model  that  adequately  represented  the  dynamic  behavior  and  collapse  of 
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basement  walls  with  door  openings  had  not  been  developed  previously. 

The  object  was  to  use  the  available  analytical  tools  to  estimate  with  a 
good  degree  of  confidence  the  collapse  strength  ol  basement  walls  in  area- 
ways  without  actually  expending  the  time  and  effort  required  to  develop  a 
realistic  mathematical  model  and  writing  the  computer  code. 

Wall  With  Door  Opening 

The  work-energy  method  from  the  yield-line  theory  for  reinforced 
concrete  slabs  was  used  to  calculate  the  flexural  resistance  for  rein- 
forced concrete  walls  with  door  openings.  The  method  is  outlined  in 
Ref.  1,  and  wil?  not  be  repeated  here.  The  purpose  of  performing  a 
limited  number  of  yield-line  analyses  was  to  compare  the  resistance  oi 
walls  with  door  openings  with  that  oi  walls  without  door  openings.  If 
the  resistance  values  for  the  two  wall  types  were  found  to  be  approxi- 
mately the  same,  then  the  available  dynamic  computer  programs  for  wall 
elements  could  be  used  to  provide  interim  collapse  predictions  for  a 
variety  of  wall  cases.  However,  if  the  resistances  lor  the  two  wall 
types  were  found  to  be  different,  then  the  resistance  values  calculated 
for  the  walls  with  door  openings  could  be  used  to  perform  a limited  num- 
ber of  dynamic  analyses. 

The  reinforcing  steel  details  used  for  the  analysis  are  shown  in 
Figure  7.  Since  the  calculation  of  the  yield-line  moments  is  a rela- 
tively tedious  hand  calculation  requiring  trial  and  error  solutions,  a 
minimum  number  of  wall  cases  was  considered.  Therefore,  only  an  8-in.- 
thick  wall  with  a height  of  120  in.  was  treated;  walls  were  analyzed 
with  widths,  L , of  92  in.,  116  in.,  and  110  in.  The  calculated  yield 
lines  and  resistance  values  for  the  three  walls  are  shown  in  Figure  8. 
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Wall  Without  Door  Opening 

A series  of  computer  runs  was  made  using  the  SRI  programs  developed 
previously  for  two-way  action  reinforced  concrete  walls  (Ref.  4).  The 
vertical  load,  P , in  the  plane  of  the  wall  was  assumed  to  be  zero;  i.e., 
the  wall  was  considered  as  a panel  wall  that  did  not  carry  any  loads  I rom 
the  floor  levels  above.  The  horizontal  and  vertical  reinforcement  for 
the  walls  without  door  openings  was  the  same  as  that  for  walls  with  door 
openings,  except  that  for  walls  without  door  openings  the  two  No.  5 bars 
around  the  opening  shown  in  Figure  7 were  deleted,  as  shown  in  Figure  9. 

The  values  of  the  resistance  for  walls  without  door  openings  are 
plotted  in  Figure  10,  where  they  are  compared  with  the  resistances  calcu- 
lated by  the  yield-line  theory  for  walls  with  door  openings.  From  the 
figure,  it  is  apparent  that  the  maximum  resistance,  q,  for  the  two  wall 
cases  is  approximately  equal  for  the  range  of  wall  widths  considered. 

Based  on  this  limited  study,  it  was  assumed  for  the  urpose  of  performing 
preliminary  dynamic  collapse  predictions  for  reinforced  concrete  basement 
walls  that  the  flexural  resistances  of  wall  with  ind  without  a door  open- 
ing, and  reinforced  as  shown  in  Figure  9,  were  equal. 

To  estimate  the  collapse  of  blast  loaded  basement  walls  with  door 
openings,  dynamic  analyses  were  performed  for  a range  of  wall  widths,  two 
wall  thicknesses,  and  two  wall  heights.  The  results  of  these  analyses  arc- 
shown  in  Figure  11.  It  should  be  noted  that,  since  it  was  assumed  that 
the  basement  walls  were  panel  walls  with  Py  = 0,  and  did  not  arch,  the 
curves  can  be  considered  as  lower  bound  predictions  for  each  wall  type 
shown. 

The  collapse  criterion  adopted  for  walls  in  the  evaluation  procedure 
was  based  on  the  collapse  of  the  wall  in  flexure;  as  discussed  in  Ref.  4, 
collapse  is  predicted  as  a result  of  excessive  steel  strain,  instability, 
or  an  excessive  ductility  latio.  From  studies  made  during  the  development 
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FLEXURAL  RESISTANCE 


WALL  PARAMETERS 
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Lv  = 96  in.  and  120  in. 

Lh  = 92  in.  tc  240  in. 
tw  = 8 in.  and  12  in. 
fjr  = 3,750  psi 
fdy  « 44,000  psi 
p = 0.0025  Ac  (horizontal) 
p = 0.0015  Ac  (vertical) 
y =145  pcf 
Aw  = 0 

Door  opening:  3' -8"  x 6* -8" 

Support  case:  fixed  four  edges 


W 


S 
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= 6.7  ft 


WIDTH  OF  WALL  - in. 


FIGURE  11  PEAK  INCIDENT  OVERPRESSURE  AT  INCIPIENT  COLLAPSE 
VERSUS  WALL  WIDTH 

Two-Way  Reinforced  Concrete  Basement  Wall  In  Areaway 
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of  the  original  wall  evaluation  procedure,  it  was  determined  that  for 
lightly  reinforced  members  with  the  usual  type  of  supports,  a shear  fail- 
ure v/ould  not  be  expected  to  occur,  and  if  it  did,  it  would  not  be  ex- 
pected to  result  in  collapse  of  the  wall.  However,  for  the  basement 
walls  considered  in  this  study,  there  were  two  factors  that  could  influ- 
ence the  collapse  mechanism  assumed  in  the  original  procedure.  First, 
the  door  opening  could  produce  both  higher  local  shears  and  stress  con- 
centrations than  found  in  solid  walls.  Second,  the  reaction  of  the  base- 
ment wall  at  the  construction  joint  between  the  basement  wall  and  the 
areaway  support  wall  is  opposite  in  direction  to  that  usually  encountered. 
That  is,  the  reaction  places  the  Joint  between  the  basement  and  a»*eaway 
w**'’.j  in  tension;  the  areaway  wall  provides  lateral  support  to  the  base- 
ment wall  only  through  development  of  tensile  forces  in  the  reinforcing 
steel  continuous  through  the  joint  shown  in  Figure  12a.  This,  of  course, 
is  opposite  to  the  usual  case  where  the  lateral  load  on  the  wall  forces 
the  member  to  bear  directly  against  its  support  as  shown  in  Figure  12b. 

There  are  two  important  implications  as  a result  of  the  type  of 
lateral  support  provided  by  the  areaway  walls  that  could  influence  the 
collapse  predictions  of  the  basement  walls  shown  in  Figure  11.  First, 
the  reinforcing  steel  between  the  basement  and  areaway  walls  could  fail 
in  tension,  which  would  result  in  one-way  wall  action  between  floor 
levels  rather  than  two-way  action  as  assumed  in  the  analysis.  Second, 
under  the  lateral  blast  load  tne  basement  wall  cracks  along  all  supports 
at  small  elastic  deflections  as  a result  of  the  negative  moment  developed. 
As  illustrated  in  Figure  13a,  the  reinforcing  steel  is  near  the  inside 
surface  of  the  isement  wall  and  the  effective  uepth  of  the  steel  for  re- 


sisting this  negative  moment  is  measured  from  the  inside  wall  surface; 
for  the  assumed  wall  this  distance,  d,  would  be  only  1-3/8  in.  Because 
of  the  cracks  at  the  support,  the  thickness  of  the  concrete  available 
for  resisting  the  shear  force  is  only  equal  to  d,  and  therefore  a shear 
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failure  could  occur  early  in  the  wall  response,  tor  the  type  of  walls 
considered  when  developing  the  evaluation  procedure,  the  reaction  was 
assumed  to  act  against  the  lateral  interior  support  wall  ana  a shear 
failure  was  not  considered  as  a wall  collapse  mechanism.  That  is,  a 
shear  failure  at  the  lateral  support  wall  would  precipitate  a tensile 
membrane  mode  of  response  in  the  basement  wall,  rather  than  a wall  col- 
lapse, and  the  reactive  forces  would  be  transferred  to  the  support  by 
tensile  action  of  the  continuous  l’einforcement;  this  is  illustrated  in 
Figure  13b.  For  a basement  wall  located  in  an  areaway,  a shear  failure 
in  the  wall  at  the  construction  joint  between  the  basement  and  areaway 
walls  would  result  in  rupturing  of  the  concrete  and  tearing  out  of  the 
continuous  reinforcing  steel  in  the  basement  wall;  the  small  co  .crete 
cover  over  the  reinforcement  shown  in  Figure  13a  could  not  be  expected 
to  resist  the  reactive  forces  of  the  basement  wall. 

Since  the  mathematical  models  developed  for  the  evaluation  procc- 
dux-es  could  not  be  used  to  investigate  the  details  of  localized  internal 
cti-esses  and  reactions  for  the  complex  door  opening  wall  geometry,  an 
available  static  finite  element  computer  program  was  used  to  estimate 
probable  failure  modes. 

rinite  Element  Wail  Program 

Although  ;he  available  finite  element  program  is  a powerful  analyti- 
cal toe1.,  it  is  limited  to  static,  elastic  structural  systems.  Therefore, 
the  primary  value  of  the  results  for  this  study  was  to  provide  a basis 
for  estimating  possible  collapse  mechanisms;  the  x’esults  were  oi  only 
limited  quantitative  value.  The  two  basic  wall  configurations  analyzed 
are  illustrated  in  Figure  14;  because  of  symmetry,  it  was  only  necessary 
to  consider  one-half  the  wall.  The  wall  model  consisted  of  an  assemblage 
of  plate  elements,  and  only  the  support  nodes  are  numbered  on  the  figure. 
The  useful  output  information  included  the.  deflections,  internal  loads, 
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WINS  FINITE  PLATE  ELEMENTS  AND  NODES 


and  extreme  fiber  stresses  in  the  plates,  and  the  reactions  at  each  sup- 
port node.  For  this  exercise,  only  an  8-in. -thick  wall  with  a 120-in. 
height  was  considered.  The  walls  were  analyzed  for  a static  lateral  load 
of  10  psi  applied  uniformly  to  the  wall  and  door;  the  door  load  was  dis- 
tributed to  the  wall  nodes  adjacent  to  the  opening. 

The  primary  reason  for  conducting  the  finite  element  analysis  was 
to  provide  more  detailed  information  about  the  reactions  at  the  construc- 
tion joint  formed  by  the  intersection  of  the  basement  and  areaway  walls 
than  was  available  from  the  other  analyses.  For  the  wall  with  L(,  = 156  i 
the  following  values  ior  the  basement  wall  reactions  at  the  basement/area 
way  wall  joint  were  obtained  for  the  nodes  shown  in  Figure  11: 


Node 

Reaction , 
lb 

16 

1,901 

21 

2,915 

32 

3,801 

•10 

-3,165 

•18 

11,785 

5-1 

6,125 

60 

6,079 

66 

6,027 

72 

5,681 

78 

5,081 

8 1 

1 , 191 

90 

2,680 

The  maximum  reaction  predicted  is  11,785  lb  at  node  18;  next  is  6,125  lb 
at  node  51.  Since  the  actual  wall  had  continuous  support  rather  than 
point  support  at  each  node,  it  is  appropriate  to  average  the  reaction 
between  two  adjacent  nodes.  Therefore,  the  maximum  average  applied  shear 
along  the  basemer.t/areaway  wall  joint  is 

11,785  + 6,125  

V “ (2)  (10)  ‘ 8SC  U'A"- 


•1! 


To  determine  whether  this  magnitude  of  applied  shear  would  result  in 
a shear  failure  in  the  basement  wall,  it  was  necessary  to  calculate  the 
shear  resistance  of  the  wall.  From  Ref.  7,  the  unit  shear  resistance  at 
the  support  of  a reinforced  concrete  member  is 
2.28\/f 7 30C0d  3.5 \J[j 

(v  ) = — — — -f  — .r  — — — 

' 3 l-2d/L  1-d/L  “ l-2d/L 

For  the  basement  wall,  the  horizontal  reinforcement  is 
= 0.2-10  sq  in. /ft, 

and  d = 1.38  in.  for  a racked  concrete  section,  therefore 


0.2-10 
(12) (1 .38) 


= 0.01-149. 


Substituting  these  quantities  into  the  above  equation,  the  unit  shear  is 

. . 2.28\/3000  (3000)  (.01-149) 

(v  ) = + = 171  psi. 

« s - l-(2) (1.38)  . 1.38 


Since  the  total  shear  resistance  at  the  support  would  be 


(V.  = (v.->,bd> 


(V  ) = (171) (1) (1.38)  = 238  Ib/in. 

C 3 

This  value  is,  of  course,  much  less  than  the  shear  force  ol  89C  lb/in. 
resulting  from  a uniform  static  load  of  10  psi.  For  estimating  purposes 
only,  if  it  is  assumed  that  the  dynamic  shear  resistance  is  25  percent 
greater  than  tin.*  static,  and  that  a dynamic  load  lactor  (DLF)  of  1.15  is 
appropriate  for  the  load  type,  then  a rough  estimate  of  the  level  of  the 
blast  load  that  would  result  in  a shear  lailure  in  the  wall  would  he 


(236) (1.25) (10) 
(1 .15) (896) 


2,9  psi, 


For  the  basement  wall  with  L„  = 84  in.,  two  wall  cases  were  consid- 
ered; (1)  simply  supported  on  four  edges,  and  (2)  fixed  on  lour  edges. 

The  values  of  the  reactions  along  the  basement /areaway  wall  joint  for  the 
simply  supported  wall  with  a 10-psi  static  load  were  as  follows: 
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3,901 
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81 

3.531 

87 

2,  167 

Using  the  same  method  as  before  for  two  adjacent  nodes,  the  predicted 

maximum  average  shear  along  the  basement/areaway  wall  joint  is 

7761  + 3921  . . . , 

V ' (2) (in,"  ' 58'‘  lb/l“- 

Again,  a rough  estimate  of  the  blast  overpressure  that  would  result  in 
a shear  failure  in  the  basement  wall  would  be 


(236) (1 „ 25) (10) 
(1 .15)  (58-1) 


‘1.1  psi  . 


Based  on  the  above  rough  estimates  for  8-in. -thick  reinforced  con- 
crete walls  with  door  openings,  it  could  be  concluded  that  a shear  fail- 
ure will  occur  at  blast  overpressures  less  than  5 psi  il  the  horizontal 
distance  from  the  edge  of  the  door  opening  to  the  areaway  wall  is  greater 
than  about  18  in.,  i.e.,  for  > 80  in.  However,  since  this  estimate  is 
based  on  a crocked  concrete  section,  it  is  of  interest  to  examine  the 
effect  on  the  strength  of  the  wall  of  the  concrete  cracking  along  the 
supports. 

As  the  exposed  horizontal  distance  between  the  edge  ol  the  door 
opening  and  the  areaway  support  wall  is  increased,  the  probability  of  a 
shear  failure  occurring  in  the  basement  wall  is  also  increased.  For 
example,  il  the  horizontal  distance  is  equal  to  the  wa ' 1 thickness, 
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t =8  in.  (L,  =60  in.),  then  the  full  thickness  of  the  concrete  wall 
section  is  effective  in  resisting  the  applied  shear  force  because  the 
modulus  of  rupture  of  the  concrete  has  not  been  exceeded  and  the  concrete 
section  is  uncracked.  Since  the  shear  resistance  for  this  case  is  much 
greater  than  the  applied  shear,  the  wall  would  not  be  expected  to  exper- 
ience a shear  failure.  As  the  width  of  the  wall  is  increased  to  8-1  in., 
the  values  of  the  reactions  and  moments  along  the  basement/areaway  joint 
for  an  8-in. -thick  concrete  wall  fixed  on  four  edges  and  with  a 10-psi 
static  load  are  as  follows: 


Node 


Reaction, 

lb 


Moment 
in. -lb 


13 

-26 

1,1-19 

21 

1,187 

10,813 

29 

1,738 

20,013 

37 

2 , 726 

37,815 

•15 

5,031 

55,7-16 

51 

3,786 

-19,166 

57 

•1 ,076 

52 , 550 

63 

•1,267 

5-1,022 

69 

•1,329 

52,165 

75 

-1,103 

-15,-168 

81 

3,125 

31,006 

87 

167 

7,190 

The  maximum  moment  predicted  for  two  adjacent  nodes  is  52,550  in. -lb  for 
node  57;  next  is  51,022  in. -lb  for  node  63.  Therefore,  the  maximum  aver- 
age moment  along  the  basement/areaway  wall  joint  is 
52,550  + 51.022 

M = (2) (10) = 5329  in*-lb/in- 

To  estimate  if  the  wall  cracks  under  the  applied  moment,  it  is  nec- 
essary to  calculate  the  resisting  moment  for  the  uncracked  wall  section. 
For  a linear  relationship  between  stress  and  strain  across  the  section 
of  the  wall,  the  maximum  resisting  moment  is  equal  to 
f-bt„ 

a = -r  ■*  . 
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which  is  approximately  equal  to  the  applied  moment.  Thereiore,  an  8-in.- 
tiiick  concrete  wall  with  a horizontal  distance  between  the  edge  of  the 
door  and  the  areaway  support  wall  ol  about  20  in.  (Lu  = 81  in.)  would  be 
expected  to  crack  and  experience  a shear  failure  along  the  basement/area- 
way  wall  joint  at  a blast  overpressure  level  somewhat  less  than  10  psi. 
This,  of  course,  indicates  a much  greater  blast  strength  for  the  un- 
cracked wall  case  than  was  estimated  above  for  the  cracked  wall  case. 


One-Way  Reinforced  Concrete  Wall  (Without  Arching) 


As  discussed  in  the  previous  subsection,  under  dynamic  load  the 
initial  shear  failure  in  an  8-in. -thick,  two-way  reinforced  concrete 
basement  wall  located  in  an  areaway  would  occur  at  the  points  of  maximum 
shear  along  the  joi;.t  between  the  basement  and  areaway  walls  at  rela- 
tively small  wall  deflections.  The  shear  failure  would  result  in  the 
initiation  of  one-way  wall  action  (i.e.,  the  lateral  support  of  the  area- 
way wall  would  be  lost)  at  a time  shortly  alter  arrival  of  the  blast  wave. 
However,  as  noted  in  the  above  tabulations  lor  the  nodes  shown  in  Figure 
11,  the  shear  forces  developed  as  a result  of  a 10-psi  unilorm  static 
load  decreased  in  magnitude  from  a maximum  in  the  center  portion  of  the 
wall  to  a minimum  near  the  top  and  bottom  supports;  in  particular,  the 
shear  forces  at  the  nodes  above  the  level  of  the  door  opening  arc  much 
less  than  the  maximum  shear  values.  It  is  therefore  reasonable  to  assume 
that  under  blast  loading  the  one-way  action  wall  without  arching  will 


for  one-way  action  was  assumed  equal  to  the  height  of  the  door  opening. 
The  collapse  overpressure  was  obtained  for  walls  with  the  following  prop- 
erties and  load  conditions: 

Lv  = 80  in. 

Lh  = 92  to  360  in. 

t =8  in. 

f ’ =3,750  psi 

f = 44,000  psi 

p = 0.0015  A^  (vertical) 

Y = 145  pcf 

P =0 

V 

Support  case:  one-way  propped  cantilever 

S = 6.7  ft 

W =1  Mt 

The  collapse  of  these  basement  walls  is  predicted  to  occur  at  a 
blast  overpressure  of  approximately  4.5  psi  lor  all  wall  widths  from 
= 92  in  to  360  in.  For  comparison,  the  collapse  overpressure  was 
also  obtained  for  a 12-in. -thick  reinforced  concrete  basement  wall  with 
the  same  properties  as  for  the  above  8-in.  wall.  The  predicted  collapse 
overpressure  for  the  12-in. -thick  wall  was  found  to  be  9.2  psi  for  the 
same  range  of  wall  widths. 

One-Way  Concrete  Wall  (With  Arching) 

For  a frame  structure,  it  is  possible  that  one-way  arching,  rather 
thar  one-way  flexure,  may  occur  in  the  basement  wall  subsequent  to  a 
shear  failure  at  the  basement/a reaway  wall  construction  joint.  Therefore, 
calculations  were  performed  to  determine  the  blast  strength  of  one-way 
arching  walls.  Since  arching  walls  develop  considerable  more  resistance 
than  similar  nonarching  walls,  it  was  felt  to  be  more  meaningful  to  use 
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the  full  height  of  arching  walls  in  the  analysis,  rather  than  the  height 
of  the  door  opening  as  was  done  for  nonarching  walls.  The  collapse  over- 
pressure was  obtained  for  a wall  with  the  following  properties  and  load 
conditions : 


= 120  in. 


= 92  to  360  in. 


t = 8 in. 

f ' = 3,750  psi 

v = 115  pcf 

Support  case:  one-way  arching 


= 6.7  ft. 


= 1 Mt 


The  collapse  of  these  basement  walls  is  predicted  to  increase  irom  a 
blast  overpressure  level  of  6.9  psi  for  =92  in.  to  10.1  psi  for 
L_  = 360  in.  The  results  of  the  analyses  for  both  the  one-way  concrete 
walls  with  arching  and  without  arching  are  shown  in  Figure  15. 


Summary  and  Discussion 

The  primary  purpose  oi  this  effort  was  to  examine  the  dynamic  re- 
sponse of  conventional  reinforced  concrete  basement  walls  located  in 
areaways,  and  determine  ii  such  walls  can  resist  a 10-psi  blast  overpres- 
sure. Since  an  adequate  analytical  model  for  predicting  the  collapse  of 
basement  walls  with  door  openings  was  not  available,  it  was  necessary  to 
perform  several  types  of  analyses  so  as  to  make  a realistic  estimate  of 
the  collapse  strength  of  the  walls.  To  provide  uniformity  for  the  vari- 
ous analyses,  a standard  basement  wall  with  door  opening  was  designed 
in  accordance  with  the  1963  ACI  code  for  reinforced  concrete. 


ft 


An  initial  static  analysis  was  made  to  compare  the  flexural  resist- 
ances of  two-way  reinforced  concrete  walls  with  and  without  door  openings. 
The  results  of  this  analysis  (Figure  10)  indicated  that  the  flexural  re- 
sistances of  the  two  walls  shown  in  Figure  9 were  approximately  equivalent 
It  was  therefore  warranted  to  use  an  available  computer  program  to  perform 
dynamic  analyses  of  walls  without  door  openings,  and  then  to  use  these 
results  for  estimating  the  collapse  overpressure  of  basement  walls  with 
door  openings.  The  predicted  collapse  overpressures  for  two-way  walls 
without  door  openings  are  shown  in  Figure  11  for  8-  and  12-in. -thick 
reinforced  concrete  walls  with  wall  heights  of  96  and  120  in. 
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However,  although  the  results  of  this  analysis  appeared  reasonable, 
there  was  some  co-  ern  because  the  available  analytical  model  could  not 
provide  sufficient  detailed  information  on  the  effect  of  the  complex  door 
opening  geometry  on  the  response  of  the  wall.  Therefore,  an  available 
static  finite  element  computer  program  was  used  to  analyze  an  8-in. -thick 
two-way  wall.  The  results  for  a 10-psi  uniform  lateral  static  load  in- 
dicated that  a shear  failure  was  probable  at  the  construction  joint  be- 
tween the  basement  and  areaway  walls  shown  in  Figure  12a.  From  the 
analysis  of  two  walls  with  different  widths,  it  was  concluded  that  a 
shear  failure  would  occur  at  relatively  If""  overpressure  levels  if  the 
areaway  wall  was  located  greater  than  abc  • 20-in.  horizontal  distance 

from  the  edge  cf  the  door  opening.  However,  a shear  failure  in  the  base- 
ment wall  at  the  ba semen t/nrea way  wall  joint  does  not  necessarily  result 
in  collapse  of  the  basement  wall,  since  the  wall  may  still  resist  the 
applied  i-last  forces  through  one-way  flexural  or  arching  action  between 
top  and  bottom  supports  subsequent  to  the  shear  la i lure  and  loss  of  side 
supports. 

To  determine  the  effect  of  a shear  failure  at  the  basemen t/areaway 
wall  joint  on  the  collapse  strength  of  two-way  walls,  dynamic  analyses 
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were  performed  for  one-way  basement  walls,  both  with  and  without  arching. 
The  results  of  the  analyses  are  indicated  in  Figure  15,  where  it  can  be 
noted  that  8-in. -thick  reinforced  concrete  basement  walls  without  arch- 
ing are  predicted  to  collapse  at  less  than  5-psi  blast  overpressure. 
Although  the  predicted  collapse  overpressure  for  arching  walls  is  much 
greater  than  for  nonarching  walls,  for  most  of  the  wall  widths  examined 
the  strength  of  arching  walls  is  loss  than  the  10-psi  blast  overpressure 
criterion.  It  should  be  mentioned  that  these  results  apply  to  the  mini- 
mum thickness  reinforced  concrete  basement  wall,  which  has  the  minimum 
area  of  steel  reinlorcement  permitted  by  the  1963  AC1  building  code  lor 
reinforced  concrete. 


Conclusions 


From  the  various  analyses  performed,  a lew  general  conclusions  can 
be  made  concerning  the  collapse  of  blast  loaded  reinforced  concrete  base- 
ment walls  with  door  openings  and  located  in  areaways.  First,  for  rein- 
forced concrete  walls  8-in.  thick  or  thicker,  and  not  over  10-1 t high, 
it  is  probable  that  the  wall  strength  oi  the  weakest  code-designed  wall 
is  sufficient  to  resist  a 10-psi  blast  loading  if  the  horizontal  distance 
from  the  edge  of  the  door  opening  to  the  areaway  support  wall  is  less 
than  approximately  20  in.  (I.  = 8 1 in.). 


Second,  for  8-in. -thick  walls  with  horizontal  distance  between  door 
opening  and  areaway  wall  greater  than  about  20  in.,  it  will  be  necessary 
to  strengthen  the  wall  in  the  vicinity  oi  the  door  opening  so  as  to  up- 
grade the  wall  to  the  10-psi  blast  overpressure  level. 


Third,  for  reinforced  concrete  basement  walls  12-ir..  thick  or 
thicker,  the  blast  strength  can  be  expected  to  be  approximately  equal  to 
or  greater  than  the  10-psi  blast  overpressure  criterion  lor  all  wall 
cone  it  ions. 
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Appendix  A 

LISTINGS  OF  COMPUTER  PROGRAMS 


Introduction 

This  appendix  contains  a printout  of  the  listing  for  each  program 
developed  for  DCPA  for  analyzing  the  dynamic  response  and  collapse  of 
walls  and  floor  systems  of  existing  buildings. 

The  programs  were  coded  in  FORTRAN  and  run  on  United  Computing 
Systems,  Inc.,  commercial  time-sharing  ODC  6400  computer  (System  UCS-VI); 
running  on  other  systems  may  require  minor  modifications  to  the  progiams. 
For  convenience  and  ease  of  use  during  the  research  effort,  as  well  as 
by  others  later,  the  programs  were  written  in  an  interactive  or  conver- 
sational mode. 

To  reduce  the  size  of  the  computer  central  memory  required,  and 
thereby  reduce  the  cost  of  running  the  programs,  the  Link  Mode  or  chain- 
ing technique  was  used  for  the  larger  programs.  Chaining  has  the  advan- 
tage of  reducing  the  overall  cost  of  running  programs,  but  a slightly  more 
complicated  technique  is  required  to  compile  the  programs  in  preparation 
for  execution.  Half  of  the  programs  were  developed  as  chained  programs. 

Also  included  in  this  appendix  are  short  summaries  describing  the 
function  of  each  of  the  following  eight  programs: 

• UNREIXF,  Unrcinforced  masonry  wall  without  arching,  see  page  63 

• ARCHING,  Unreinforced  masonry  wall  with  arching,  see  page  81 

• RCWALL,  Reinforced  concrete  wall,*  see  page  95 


* Link  Mode  or  chained  program 


• RCSLAB,  Reinforced  concrete  slab,*  see  page  115 

• RESTRAN,  Restrained  reinforced  concrete  ,lab,  see  page  133 

* 

• RCBEAM,  Reinforced  concrete  support  beam,  see  page  147 

jfc 

• STBEAM,  Steel  support  bean,  see  page  165 

• FLAT,  Flat  slab  or  flat  plate,  see  page  181. 

Following  the  summaries  are  the  listings  of  the  programs. 
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Summary  of  Computer  Programs 

Program  UNREINF 

Analyzes  one-way  and  two-way  unreinforced  masonry  walls  (exterior 
or  interior)  without  arching  for  a given  load,  or  solves  for  incipient 
collapse  load.  Window  openings  may  be  included.  Load  types  include: 
idealized  blast  loading  (front,  side,  or  rear  face)  with  or  without  room 
filling;  triangular  load;  rectangular  load;  URS  tunnel  loading;  arbitrary 
load  shape.  Modulus  of  rupture  and  clearing  distance  may  be  randomly 
varied  (normal  distribution). 


Subroutine.;:  Main  Routine  COEF 

FORCE  TRANS 

FILL  WINDOW 

RESIST  RANDOM 


Program  ARCHING 

Analyzes  one-way  and  two-way  unreinforced  masonry  walls  (exterior 
or  interior)  with  arching  for  a given  load,  or  solves  for  incipient  col- 
lapse load.  Window  openings  may  be  included.  Load  types  include • ideal- 
ized blast  loading  (front,  side,  or  rear  face)  with  or  without  room  fill- 
ing; triangular  load;  rectangular  load;  URS  tunnel  loading;  arbitrary 
load  shape.  Ultimate  compressive  strength,  modulus  of  elasticity,  and 
clearing  distance  may  be  randomly  varied  (normal  distribution). 


* Link  Mode  or  chained  program. 
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Subroutines:  Main  Routine  RESIST 

FORCE  WINDOW 

FI  LI,  RANDOM 

Program  RCWALL 

Analyzes  one-way  and  two-way  reinforced  concrete  walls  (exterior  or 
interior)  for  a given  load,  or  solves  for  incipient  collapse  load.  Win- 
do-  • ?oenings  may  be  included.  Load  types  include:  idealized  blast  load- 

ing (front,  side,  or  rear  face)  with  or  without  room  filling;  arbitrary 
load  shape.  Dynamic  yield  strength  of  reinforcement  steel  and  clearing 
distance  may  be  randomly  varied  (normal  distribution). 


Subroutines:  RCWALL1  RESIST 

WINDOW  MOMENT 

RCWALL2  COEF 

FORCE  TRANS 

FILL  RANDOM 


Program  RCSLAB 

Analyzes  one-way  and  two-way  reinforced  concrete  floor  slabs  for  a 
given  load,  or  solves  for  incipient  collapse  load.  Tensile  membrane  re- 
sistance may  be  included.  Dynamic  reactions  may  be  output  to  a data 
file  for  use  in  analyzing  support  beams.  Load  types  include:  idealized 

blast  loading  (top  face)  with  rise  time  equal  to  time  required  for  blast 
wave  to  travel  across  short  span;  room  filling  pressure  resulting  from 
idealized  blast  loading;  arbitrary  load  shape.  Dynamic  yield  strength 
of  reinforcement  steel  and  clearing  distance  (for  room  filling  load)  may 
be  randomly  varied  (normal  distribution). 


Subroutines:  RCSLAB1  RESIST 

COEF  MOMENT 

RCSLAB2  TRANS 

FORCE  RANDOM 

FILL 
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Program  RESTUAN 


Analyzes  two-way  reinforced  concrete  floor  slabs  with  edges  re- 
strained against  lateral  movement  for  a given  load,  or  solves  for  incip- 
ient collapse  load.  Both  compressive  ar.d  tensile  membrane  behavior  are 
included.  Load  types  include:  idealized  blast  loading  (top  face)  with 

rise  time  equal  to  time  required  for  blast  wave  to  travel  across  short 
span;  room  filling  pressure  resulting  from  idealized  blast  loading; 
arbitrary  load  shape.  Yield  strength  of  reinforcement  steel,  concrete 
compressive  strength,  and  clearing  distance  (for  room  filling  load)  may 
be  randomly  varied  (normal  distribution). 


Subroutines:  Main  Routine 

FORCE 


MOMENT 

TRANS 

RANDOM 


RESIST 


Program  RCBEAM 


Analyzes  reinforced  concrete  beams  (rectangular  or  T-beam)  for  a 
given  load,  or  solves  for  incipient  collapse  load.  Tensile  membrane  re- 
sistance may  be  included.  Load  types  include:  dynamic  reactions  from 

slab  analysis  (see  RCSLAB);  idealized  blast  loading  acting  on  beam  and 
area  of  slab  supported  by  the  beam  with  rise  time  equal  to  time  required 
for  blast  wave  to  travel  length  of  the  beam;  room  filling  pressure  re- 
sulting from  idealized  blast  loading  octirg  on  beam  and  area  of  slab 
supported  by  the  beam;  arbitrary  load  shape.  Dynamic  yield  strength 
of  reinforcement  steel  and  clearing  distance  (for  room  filling  load) 
may  be  randomly  varied  (normal  distribution). 


Subroutines:  RCBEAM1 

RCBEAM2 
FORCE 


RESIST 

MOMENT 

COE*-' 

TRANS 

RANDOM 


P 
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Program  STBEAM 

Analyzes  structural  steel  beam  (wide  flange  may  include  bottom  steel 
cover  plate  and/or  composite  action  with  slab)  for  a given  load,  or  solves 
for  incipient  collapse  load.  Load  types  include:  dynamic  reactions  from 

slab  analysis  (see  RCSLAB);  idealized  blast  loading  acting  on  beam  and 
area  of  slab  supported  by  the  beam  with  rise  time  equal  to  time  required 
for  blast  wave  to  travel  length  of  the  beam;  room  filling  pressure  re- 
sulting from  idealized  blast  loading  acting  on  beam  and  area  ol  slab 
supported  by  the  beam;  arbitrary  load  shape.  Dynamic  yield  strength  of 
structural  steel,  dynamic  yield  strength  of  reinforcement  steel  (composite 
beam),  and  clearing  distance  (for  room  filling  load)  may  be  randomly 
varied  (normal  distribution). 


Subroutines:  STBEAM1  RESIST 

ST8EAM2  COEF 

FORCE  TRANS 

FILL  RANDOM 


Program  FLAT 

Analyzes  reinforced  concrete  flat  slab  floor  system  or  flat  plate 
floor  system  for  a given  load,  or  solves  for  incipient  collapse  load. 
Tensile  membrane  resistance  may  be  included.  Load  types  include: 
idealized  blast  load  (top  face)  with  rise  time  equal  to  the  time  re- 
quired for  blast  wave  to  travel  across  span  (slab  assumed  to  be  square); 
room  filling  pressure  resulting  from  idealized  blast  loading;  arbitrary 
load  shape.  Dynamic  yield  strength  of  reinforcement  steel  and  clearing 
distance  (for  room  filling  load)  may  be  randomly  varied  (normal  distri- 
bution) . 


Subroutines:  Main  Routine  RESIST 

FORCE  MOMENT 

FILL  RANDOM 
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-”,'  - .as-  jesa^taiig^as; 


PROGRAM  UNRE1NF 


C3MM3N  Y t IOO>.  YU.  YFAIL.O.QU.  AREA.  *MASS»  SMLM*  VH1.  VM2.  VVI.  VV2 
C3MM3N  <WALL»-tINC»-tRF.<RANO»l»  ICASE.F'J.  VFAIL.  PR.  PPM.  EM.  FDT 
C3MM3N  FDC.  0<  4)  .LOTYPF.,  PEXT.  “F.  PS3.  PD3.  PC.  TC.  TO.  P3»  Tt  NE.L.  S 
C3MM3N  /RANO/  TIM EC.  t WALL 

0IMENSI3N  At  1001.  Vt  1001.  T<  1001.  VVt  IOO).  \M(  100>. 

»EXf  lOOl.PINt  I001.PNI 1001 

REAO  TITLE  ANO  C3NTR3L  PARAMETERS 
PRINT  67 
REAO  68.TITLE 
PRINT  85 

READ. K VAUL  XINC.LDTYPE.-tRF.XRANO 

oelay*o 

vfail*ieio 

CALL  AESISTCI) 

CALL  F3RCE<1> 

IFtXRF.EO.OIGDTI  13 
CALL  FILLtPINT. 1 1 
I FCXWALL.EO.O)  Q3T3  14 
PRINT  86 
REAO.OELAY 
OELAY*OELAY/IOOO.O 
IFURANO.NE.  I133T3  35 
CALL  F8RCEI41 
CALL  RANOSMtl) 

CALL  RAND3M <31 
CALL  RESIST* 3) 


O13I0C 

0 1 320CX  MINIM'IM.  MAXIMUM.  AMO  START!  MG  VALUES  ARE  DETERMINED  F3R  CASES 
013300  WHERE  THE  L3A0  CAUSING  INCIPIENT  C3LLAPSE  IS  T3  RE  F3UND 
01340  13  IFtKIMC.EQ.01  OTTO  33 
pr*0U 
PFMAX*0 
PFMINaPF/2.0 
G3T3  20 

PF«tPFMIM*PFMAX>/2.0 
CALL  F3RCE<2> 

IUKRF.EO.OIOTO  34 
CALL  FILLtPl NT*  2) 


01350 
01360 
01370 
01380 
01390  16 
01400  20 
01410  23 
01420 
0I430C 

014400  INITIALISE  VALUES  F3R  BETA  NETHJD  IRETA  • 1/6>  AND  COMPUTE  VALU 
014500  F3R  FIRST  TIME  INTERVAL  ASSUMING  WALL  INITIALLY  AT  REST 


1*1 

TlME»0 

Ttn»o*  vtinos  Ytn=n 
OELTAoO.OOl 
I Ft< WALL. EQ.O  > G3T3  29 
I Ft  TIME.  GF..(OELAY-0.00001>)  G3T3  28 
TIME*  TIME*  DELTA 
CALL  FILLIPINT.  31 
OTTO  2 7 
PIN! 1 >*PINT 

tpnet*area«pint 

T<  1 >*TIME 
G3T3  30 
CALL  F3RCEI31 
PEXI I ) »PEXT 
TPNET*AREA*PEXT 
PNt 1 >*PEXT 
CALL  RESIST*  2 > 

At  1 >«T»NET/tEMASS«{<LMJ 

VVtl>*VVI*TPNET 

VHt  I )»  VH1  *TPNET 


01460  24 
01470 
01480 
01  490 
01530 
01530  27 
01540 
01550 
01  560 
01570  28 
01  S80 
01  590 
01600 
01610  39 
01  61  5 
01630 
01630 
01640  30 
01650 
01660 
01  670 
01  680C 

016900  PR3CE0URE  F3R  ALL  SUBSEQUENT  TIME  INTERVALS 

0 1 700  1 1*1*1 

01710  IFU.LT.1011G3T3  11 

0173,0  PRINT  98.  TIME 

01730  98  FSRMATt/. *1*1011  TIME  »*.F6.3.*» 

01  740  OTTO  6 


WALL  ASSUMED  T3  NiT  F4IL*> 
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3*K-  * 


PROGRAM  UNREINF  (CONTINUED) 


1 1 


10 


01  750 
01  760 
01  770 
01  700 
01  790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
0 1960 
01970 

0 I MO 

01  985 

01  990 
02000  8 
0201  0 
00020 
OOOIO  9 
00040 
02080 

02  060 
00070 
02080 
02090C 
02IOOCJ 
001 lOCt 
02120 
O'  03 

0 

' 1 
».  i »0 

021  70 
00180 
0219QC 
02200 
02210 
02220C 
00230CJ 
02240CJ 
02050C: 
02260  6 
02070 
02280 
02290 
02300 
02310 
00320 
023300 
02340  7 
02380 
02360 
02370 
02380 
02390C1 
02-  0 1 7 
02410 
02420 
02430 
02440C 
02450C1 
02480CJ 
00470Ct 


TIME*TI4E*  DELTA 
T<  t ) *TIME 
3(l)«ACt-|> 

.L  F3RCEC3) 

.-EKC  I )=PC  XT 
1 FC8 WALL  • EO*  1 ) G9T3  10 
IFC8RF.E0.0)  OTT3  3 
CALL  FILLCP19T.  3> 

PINC1)»P19T 
TP9ET*AREA*  (PEX1*p19T> 

MTS  2 

TP9FT*AREA*PEXT 
G3T3  2 

CALL  FILLIP!  8T.  31 
PI  9<  1 )*PI  >IT 
TP9£T*AR£A*PI 9T 
2 PRC I >*TP9ET/AREA 
03  8 J J=  1 . 10 

YCI)*Y(t-|)*OEL  TA«V<I-t)*0ELTA*DELTA«CACI-l)/3.*Ad)/6.  > 

CALL  RESIST!  21 

0T»0«AOFA 

4 ArEw*  C TPREr- 0T>  ' ( J 8A5S*  ' <L  8> 

aoeltawarr-w-ac  i > 

A<  1 IsAREw 

i f<  a^ex.eo.oipri  9r. * 1 98s«»  ri  4-:.  r-M-ir.  or.  ;4A««.  ml  4.  re i >.  ac i-n 

i f c arm ade.ta/c are** i .o-> io>  >.l r.o.oi  >r.)  ri  ■> 

8 CJRTIR  K 

AC  I >*A9*  R-AOFl.  TA/J.O 

WRI  Ti<  l.30>THE.»F.  AC  t >.  YC  I > 

9 cmn'i- 

YC l >»YCI-I  >*OEL  TA*9C l-l  M OELTA*  OELTA*(  AC  l-l  >/3.*AC  t >/6.  > 
VC  [l!V(  t-1 1 * OEL  TA*  ( AC  I >►  AC  1-1  > )/>.0 
99C  I >*V'H  « TOR-:  r*  932*  or 
V9(t)398|« rPRE T* 982* or 
|F<V9<  I ).0r.9FAlL)0Ar»  7 

CHECX  FIR  4A<  1 9'|8  0EFLECH1R  1R  FAIL-IRE  3F  wALL 
1F  8AXI818  OEFLEC  f M 9 RF.AC8E),  WALL  Oil)  83  r FAIL 
IFCrCl  l.LE.YCI-l  l.ARO.PRC  I >.LE.aRC  I- I >>GU3  6 
iFcrcn.Lr.oiom  6 
i fc  ri  4*>  delay,  ge.o.oi  oioel  rAso.ooa 
iFtrci  l.ur.r  DOiTi  i 
!F<  TI9-:-0Fi.AT.0E.0.02O>0€L  IAiQ.OOO 
i fc  the-oelay.ge.o.  1 03)00.  r a*  0.010 
i f<  the-oelay.gs.o.  8oo),)ELrA*o.ii50 

IF  FAILJRE  0EFLECTI3R  REACHED.  WALL  FAILED 


Ifctci >. 

GOTO  1 


GE.  YFAIL  ) G9  T9  7 


36 


37 


t RTER9AL  9AL  81  9G  PR9CE0'JRE  T9  0ETE88IRE  L9A0  CAISIRG  1 RCI P t ERT 
C9LLAPSE  pin  ca'EF  naERE  DEM  RED 

WALL  010  99T  fail  - SET  »F81 4 r9  »F 
C98TI  4*|E 

( FMRARO.EO.  1 >G9  T9 
IF(<tRC.EO.O)G9T9 
PF81 9*oF 

I FC  PF  8AX  « GT*  O ) G9T  9 I 7 
PF»2.0«OF 
G9T9  20 

WALL  FAILFi)  - SET 
C99TI9IE 
rt8EC»  TI8E 

IFCC9A90.EO.  I >G9TJ  37 
IFC818C.E).0)G9T3  18 
OF46X*PF 

C8RCC  T9  SEE  IF  L 9 AO  RA8GE  IS  wIMIR  DESIRED  ACCURACY 
IF,  (PF8AX-PF81  Rl/PFRlR.Gr.O.OI  )G9rJ  16 
1FCX8AR0.RE.1  1G9T9  18 
CALL  BA8098C3) 

G9T3  34 


36 

18 


MAC  T9  PF 


3 ITP  jr  JATA  IRCL'JOES  T8E  RAxlHO* 
3CCMRA8CE  FJB  A 8.99-FA1LI9G  WALL 
AT  C9LLAPSE  fir  A FA1L18G  WALL • 
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OEFLECTI 99  A9I9  TI8E  JF 
9R  ME  THE  A90  9EL9CITY 
!Pri99AL  9or*>IT  IS  T8E 


‘’NMMiwaTicifrir-^-Ti  ~i  - 


PROGRAM  UNREINF  (CONTINUED) 


024000  entire  ashaviir  tios--ustiry  if  the  wall. 

02470C 

025000  »,iT°'ir  liao  oata 
02510  i a call  fircs<4> 
oasaoc 

025100  1MTPUT  FINAL  RESULTS 

02540  i Ft r < i >.lt. yfailiwri  te<  i • 73>y<  i >,  ret > 

02550  iF{Yti>.<?s.YFAtL>wRiTS«i.7i)rci>»vti> 

02540c 

oasono  CMCct  ti  see  if  >:viiik  tioe-histiry  Af  wall  is  oesirso 
oasAO  vrits<i»T2> 

02570  RSAO.O 


02400  tp<4.<v-).o>cun  as 

o26ao  ifttwALL.ea.t >cir»  3a 

02630  IF<<RF.£0.0)G1T1  26 

02640  WRITEtl»7S)«T(  l)»P£XM).P17t  |).P7<  |).Y<  J)»VV<  I).  \Hl  II.  J*l.  I > 

02650  G3T1  25 

02660  24  WRl  TEC  1 . 74) ( T!  |).PEX<  l)»A<  I), VC  D.YC  )>.VV(  D.VHC  I).  1*1.1) 
02470  CtlTl  25 

026R0  32  WRt  TStl.  76><T<  l).A<  II.VC  l)»Y<  )).  VV<  l».  VH<  l>.  1*1.  I) 

02470  25  WRt TEC  I * 77) 

02700  0777  5 

027I0C 

02720  47  F3R04T</«I7P>IT  TITLE*. «) 

02730  60  F3R0ATCA59) 

02740  70  FJROATC/*wALL  OtO  717  FAIL  - 0A7.  DEFLECT I 17  1F«F6.2 
02750*  « 17.  REACHED  AT«F7. 3. « 'EC«) 

02760  71  F3R0ATC  /*  WALL  FAILED  A7«.F7.3.*  'EC  (FI7AL  VEL1CITY  *• 

02770*  F7.2*  17. /SEC)*) 

0 2 70  0 72  F1R0ATC/«IS  TINE  H1ST1RY  IF  WALL  DESIRED  <YC.S*I.  73*0>*.»> 

02000  75  F3R0ATC/.  I St. ‘PRESSURE  17  WALL*/*  THE  5<TER13R  • 

02010*  *1 7TERHR  NET  DISPLACEMENT  VV  70*/ 

02020*  (F6.3.3FI0.3.FI2.4.FI  |.0*FO.O>> 

02030  76  FlROArC/*  THE  PRESSURE  ACCELERAT1  17  VEL1CITY  « 

02040*  *01 SPLACE0E7T  VV  VO*/ 

02050*  <F4.3.F7.3'C)2*I.FI2.2.FI2.4.  FIt.O.FO.O)) 

02060  77  F1R7AT<///.  

02070  00  F7R04rC/«4CCELERArt  17  7ir  CloVSRGlVG  AT  rtl£  *«»  F6. 3. 

02000*  • SEC  <PF  *«. F7. 3. • all)«'«  All)  SET  EO JAL  71*. 

02070*  F0.I.4  < AvG  IF  LAST  2 t TEOATI 1 7S> •/•  V 1 1 > **. 

02700*  Fo  . 4.  • 17. «) 

02710  OS  FIROATt /*  1 7PU  7 <WALLC0*EXT.I*I77).tI7C.L')TYP'.<RF.<oA7D*. 

02720*  «f 1 «7A7010>«) 

02730  04  F1R0A7</«1 7PU7  OELAr  7 ( OS  <OSEC>  71  I7t7IAL  L3AOI7G  IF*. 

02740*  « I7TERI1R  WALL*.*) 

02750C 

02740  777  S71P 
02770  £70 

10000  SUBR3UT! 7E  FORCE! IE7TRY) 

10010C  THIS  SU3R3UTINE  INPUTS  THE  L3AD  PARAMETERS  A70  DETERMINES 
I0020C  THE  LOAD  AT  A GIVEN  TIME  F3R  THE  F3LL3WI7G  L3A0  TYPES) 

10030C  1.  IDEALISED  BLAST  L3AD  <FR17T  3R  SIDE  FACE) 

10000C 

10070  C3N73N  Y<  IOO).YU.YFAIL.9.0U.  AREA.SOASS.  SALO*  VOI.  VH2.  VVI.  VV2 
10100  C3HM3N  SHALL. <tNC.<RF.MRA70.t»ICASE.FU.VFAlL.FR.FPM. EM. FDY 
10110  C3003N  FDC.  D(4)»LDTYPE»P.PR»PS3*P03.PC»TC.TO.P3»TIOE.LL»S 
10140C 

10150  G3  T3 1 100#  200.  300*  4)  . I E7TRY 
I0I60C 

1 01  TOC  INPUT  LBAD  PARAOE  ."ERS 
10190  100  1F<0RAN0.ER.0)(53T3  102 
10192  W*IOOO  t P3»  14.7  * C3*  1 120*0  t L»C*  l 
10194  RETURN 
10196  102  PRINT  600 
10200  REAO.  W.  P3.C3.I.9C.S 
10210  1F(L3C.E9.1  7G3T3  105 
10220  PRINT  605 
10230  READ.  ELEN.  CO 
10240  105  irtOtNC.SO.l )RFTURN 
1025G  PRINT  630 
10260  RCA0.PS3 

10270  PR»2.0*PS9*<  7.0*P3»4,0»PSB)/<  7.0*P3*PSR) 

10250  0»T3  215 

1 I000C 
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1 ' ww  ppn?  IT  TO" 


PROGRAM  UNREINF  (CONTINUED) 


II010C  CALCULATE  UA1  PR3PERTIES  F3R  GIVEN  PEA<  PRESSURE 
1 1030  200  G3T3I205.2IO>.L3C 

11040  205  PSB»<PR-14.0*P3*S3RT< 196. 0*P3*P3* 1 PA. 0«P3*PR*PR«PR> >/l 6.0 
I 1050  G3T3  215 
11060  210  PS3=PR 

1 1070  215  Pl>3*2.S«PS9«PS3/<  7.0*P3*PS3> 

11080  U«C3«SQRT< 1 . 0* < 6*0«PS3 1 / < 7.0»P3 ) > 

1 1090  T0*'J*«0.333',/<2. 2399*0.  1886«P«J> 

1 1100  G3TK220.'  . 3C 

1 1 1 10  220  TC»3.0»- 

1 1 120  PC*PS3*<  1-TC/TO. -EKP<-TC/T0>*P03*CI-TC/T0>**2«EXPC-2*TC/T0> 

11130  CD»1 .0 
1 1 1 40  RETURN 
11150  225  TA»?LEN/U 
1 1160  T42*TA/2.0 
11170  TA2T0*TA2/ TO 

11180  PA»PS3*<  l-TA2T0>«EXPt-TA2T0>*CD*PD3«<  t -TA2TO)*«2*EXP< -2*TA2T0> 

11190  RETURN 

12000C 

1 201 OC  CALCULATE  LIAO 
12030  300  G3T3<30S»310).L3C 
12040  305  TT0«T1NE/T0 
1 2050  IF<TINE.GT.TC>G1T3  320 
12060  P*PC*<TC-TINE>»<PR-PC>/TC 
12070  RETURN 

12080  310  TT0-1TINE-TA21/T0 
12090  IFITINE.GT.TA  >53  T1  320 
12100  P»PA*TINE/TA 
12110  RETURN 

12120  320  IFITTO-GE.  1.31G3T3  330 

12130  P*PS3*< :-TT0>«EXP<-TT0>*C0«PO3»Cl-TT0>*»2»ERPt*2«TT0> 

12150  RETURN 
12160  330  P=0 
12170  RETURN 
1 3000C 

1 30 IOC  PRINT  L3AO  OATA 

13020  4 IE«INC.E3.0>G3T3  400 

13030  PRINT  640.LDTYPE 

13040  G0T3  410 

13050  400  PRINT  645.L0TYop 

13060  410  CONTINUE 

13070  415  G3T3C  420*  42SWL3C 

13080  420  PRINT  650 

1 3090  GOTO  430 

1 3100  425  PRINT  655 

13110  430  PRINT  660.U.P3.C7 

13120  I FIX  RAND. NE.O> RETURN 

13130  G0T3I435.  440). L3C 

13140  43S  PRINT  A65.S.TC.PN 

131  SO  G7T3  445 

13160  440  PRINT  670*'LEN»TA.PA 
13170  445  PRINT  675.11.  TO. C0»PS3»P03 
13180  RETURN 
1 4000C 

14010  600  F3RNATC/MNPUT  W.P3  » C3.L  3C.  S«»  » > 

14020  6C5  F0RN4T(/»INPUT  L.CD«.»> 

14060  630  F3RNATC/«INPUT  P$3*.»> 

14070  640  F3RNAT(/«L3AD  CAUSING  INCIPIENT  FAILURE  IS  AS  F3LL3wS«». 

I 4071*  /»5X»«L3A0  TYPE  N'INBER«.I2> 

14080  645  F3RNATI/«PR1pERTIES  3F  L9A0  ACTING  3N  WALL  ARE  AS  F3LL3WSI*. 
14081*  /»5X.«L3A0  TYPE  NlfiBER*.  1 2> 

1409  0 650  F3RNATI8X.  * IFR3NT  FACE>«> 

14100  655  FiRRATI8Y.«f  SIDE  FACE>«> 

14110  660  F3RNAT(10X.«W  xs.FB.t.*  <T  P3  *».F6.2.«  PSI  C3  «•. 

14111*  F7.1.«  FPS*> 

14120  66S  F3RNAT(10X.«S  ««»F6.1»*  FT  TC  »»»F6.3.»  SEC  PR  »•» 

14121*  F7.3,«  PSI«> 

I 41 30  670  F3RNATI  10X.*L  x*.F6.i.«  FT  TA  «*.F6.3.*  SEC  PA  *•* 

14131*  FT.  3*  • PS£»> 

14140  675  F3RNATI 1 OX.  *U  »«.F7.|»«  FPS  TO  **.F6.3.*  SEC  CD  *•» 

I 41 41  * F5.  l./»8X.«PS3  »«»F7.3.«  PSI  PD3  »«.FJ.3.«  PSI»> 

1 5000  END 


TC  »»»F6.3.»  SEC 


TA  **.  F6«  3#  • SEC 


TO  *».F6.3>*  SEC 


20000  S«'9R3UTIVE  FILLIP3.IEVTRY1 

2001  OCt  7JMPUTES  AVERAGE  AIR  PRESSURE  IV  R33M  O'JE  T0  9L  AST  WAVE 
20020C1  .VCIDEVT  HEAD-3V  UP3V  FR3VT  WALL. 

20030C 

20040  C3mmsv  y < i oo> . yu»  y fail.  o.  ou.  area,  emass.  klm.  vhi.W2.vvi.  vva 

20060  C3MM8V  < W4LL.41  VC.  SRF.KRAVD.  1 1 . I CASE.  FU»  VFAIL.  FR.  FPM.  EM.  FOY 

20070  C3MM3V  FOC.DI41.LOTYPE.PEXT.PR.  PS3.  P03.  PC.  TC.  TO.  P3.  TIME.L.S 

200A0  0IWEVS13V  AA<8» 21. VVtR 1 

20090  L3G1CAL  Lt.L2.L3 

20100  G0T3I 10.  1 3.  1 1 >.  I EVTRY 

20110  10  PRIVT  700 

201 1 S RM33»0. 0 76  S Ll  = . FALSE. 

20120  REA0.VWIV.V3 

20125  AT*OS  AFR0VT*OS  ASI0E*0 

20130  03  IS  l*l»VWIV 

20140  PRIV7  710.  I 

20150  REAO.AAd.  1 ).  V V < I ) . AA<  1 . 2 ) 

20160  AA< I. 21*AA( 1.21/1000.0 

20161  AT«AT*AAd.ll 

20162  M»WVdl*  03T3 <12.  14.  14). M 

20163  12  AFR3VT*AFR3VT*AAI 1.11 

20164  G3T3  IK 

20165  14  ASI 0E*ASt  OE*AA< I • 1 1 
20170  IS  C3VTIVUE 

20175  AFR3VT*AFR3VT/AT*  AS! DE*ASl DE/AT 

20180  700  FORMAT!/* I VPUT  VWIV  AVO  R03M  VOLUME  (CF>*.»> 

20200  710  F3RMAT«/«IVPUT  AREA  <S0  FT1.L3CATI3V  C30E  * OELAYIMSEC) * 
20210*  • F3R  WIV03W4.12.tl 

20230  G*  1 . 4 S G2*  1 • / G S G3*l.-G2  S G4*2./G3  S GS*  G*  1 . 

20240  G6*2.*G/GS  S G7«<G-1.1/GS 
20250  PP2*. 1912 

20260  C»S0RTI  04P3632.41 44./RH33) 

202  70  TAU»2.4(V344C1./3.1)/C 
20280  VSTEP*4 
20290  OT*TAU/VSTEP 
20300  RETURV 
2031 OC 

20320  13  P33«P3 
20330  TT»O.S  T3*0. 

20340  RH333»RH33 

20350  L2*. FALSE.  J L3*.  FALSE. 

20360  RETURW 
20370C 

20380  11  I F<L  1 ) G3T3  52 
20385  IF<L2.A.L3103T3  9 
20390  52  0DT=>«TIME*T3)*0.5 
20395  IST3P»2 

20400  S3  IF!  DOT.LT . 0T1  G3T3  51 

20410  SO  D0T*0.S*00T 

20  415  IST0P»24IST3P 

2 0 420  G3  T3  S3 

20430  St  C3VTIVUE 

20440  03  99  1*1.1  STOP 

20450  TT*T3*I*00T 

20460  I F<TT*  GT*  T01 03  T3  99 

20470  DM*0.  * WW*0.  S VW»0 

20480  03  500  Md.VWIV 

20490  M*VVtK 1 S 0LY*A4H»  21*0. 000091 

20500  I F<  OLY  . GE.  TT1  G3  T3  500 

20510  G8T3d5,  16.161. M 

20520  IS  COF*| .0 

20530  IFITT-TC120.20.21 

20S40  20  PI l*«TC-TT14tPR-PCl/TC*PC 

20550  Pll*Ptl*P3 

20560  03  T3  30 

20570  16  CDF*-0.4 

20600  21  R*TT/T0  * RR«|.-R 

20610  P0»PD34RR4RR*EXP<-2.*R1 

20620  PS»PS34RR«E!tP<-Rl 

20630  PI  I »PS*C0F*P0 

20640  PI l»Pt 1*P* 

20  650  30  RM8l*RM83*(«Pi  I/P9144G21 
20660  IFIP11-P33136.36.37 
20670  36  JSI(N»-1 
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PROGRAM  UNREINF  (CONTINUED) 


20680  L2*.TRUE. 

20770  303  o?«Pll 

20780  RH32*<  <P2/P33>*«G2>«RH33J 

20  790  X»P 33/RH333 

20800  G3  T3  38 

20810  37  .JSI  <5M  = * 1 

20820  306  P2*PP2*P| 1 

20830  RH32»((P2/P|  |>«*G2>*RH01 

20880  X*Plt/RH3l 

20850  38  'J22*G4»<X-P2/RH32>*32.*144. 

20860  IF<U22)40.  39.39 

20870  40  PRINT.«U22  NEGATIVE*. U22 

20880  STOP 

20890  39  U2*SQRT<U22)*.JSIGN 
20900  DD8»U2*RH02*AA<K»  1 >«DDT 
20910  D8*08*DD8 
20920  WW*WW*PI  l«008/<  G3*RH8I  > 

20970  500  CONTINUE 
20940  P33»P33*<G-1.)*WW/V3 
20950  RH033«RH030*O8/V3 
20960  99  CONTINUE 
209  70  T3=TT 
20980  P3*P33-P3 

20982  IF<TI8E.GE-TC)L3=.TRUE. 

20983  RETURN 

20984  9 R» TIME/ TO  S RR*|.0-R 

20985  PD*PO0*RR*RR«EXP<-2.O«R> 

20986  PS=PS3«RR«EXP<-R> 

2098  7 P3*PS*PD*<AFRJNT-0.4«ASIOE> 

20990  999  RETURN 
21020  END 

30000  SUBROUTINE  RESIST  < I ENTRY) 

3001 OC 

30020CJ  THIS  SUBROUTINE  DETER8 ' RES  THE  RESISTANCE  FUNCT13N  FOR  AN 
30030C:  UNREINF3RCE0  8AS3NRT  WALL  WITH  JR  WITHOUT  OPENINGS.  CASES 

30040CS  1-4  ARE  TW0-WAY  WALLS  ANO  CASES  8-7  ARE  ONE-  WAY  WALLS 

30050C 

30060  C3M83N  Y<100>»  YU.YFAIL.O.OU.AREH.ENASS.  EKL8.  VHI. VH2.  Wl.  VV2 
30070  038839  HWALL.RINC.RRF.RRAnO.I.ICASE.FU.VFAIL.FR.FPH.EH.FDY 
30080  C3883N  FOC.  D<  4>.l.0TYPE. PENT.  PF.  PS3.P0J.PC.  TC.  TO.  P3.  TI8E.L.  S 
30085  C3883N  /RANO/  TI8EC.  1 WALL 

30090  REAL  4 1 .4  2.  4 3.  8 'JO*  N.IC.ICT3T.IG.  <<I.H<2.  X<3.  84.8PR.8PRS0 
30100  REAL  RS.HF.REP.REO.  N-J.8U 
301  IOC 

30120  G3T3C5.  500.262).  IENTRT 
30130C 

30I40CJ  INPUT  WALL  PARA8ETERS 
30150  5 WRITE!  1.600) 

30160  REAO.  *L  V.  JLH.  Tw.PV.  E.  ER.  I CASE.  'L  V w.  'LH  W.  GANNA 
30170  WRITE!  I.  670) 

3018CC 

30190C)  0ETER8INE  ELASTIC  0EFLECTI3N  ANO  NJ8ENT  COEFFICIENTS  F3R 

30200CJ  TW3-  WAY  WALLS  WITHOUT  I NPLANE  FORCES 

30205  I WALL- 1 

30210  R*'LM/?LV 

30220  ALP»l-0/R*  ALP2*ALP«ALP 

30230  IF!ICASE.LE.4)(T)T3  1! 

30240  A* OS  ALP*0S  Aup2*0 
30250  11  AWALLS/LV4/L8 
30260  Aw!  N»/LVW«/LHW 
30270  AREA* A WALL -A W|N 

30280  ?8ASS*GA8HA«AREA*TW/!3A6.07*  I 728. 0) 

30290  R»0. 5»< ALP*SQRTf 3.0»ALP2>-ALP2> 

30300  IG*TW««3/|2.0 

30310  CALL  C3EF  ! I CASE.  R.  ASS.  ASS.  AF.  AF,  J G.  EL  V.  *LH,  *v.  NX.  CF,  E.  I > 

30320  CALL  TRANS  <8.  'L  V.  E».H»  1 CASE.  0.  ?<L8. /RL8SE.  TRL8FE.  TNLNP.  VHI  S. 
30330*  VH2S*  VV1S.  VV2S.  VHI  F.  VH2F,  VVIF.  VV2F . VH1P.  VH2P.  VVI  P.  VV2P) 
30340C 

30350CI  0ETER8INE  830IFIC4TUN  FACTOR  FJR  WALL  Wl  TH  WINDOWS 
30360C 

30370  290  08'JLT‘l.O 

30380  IF<AWtN.NE.O)CALL  wIvOJW  ( 08ULT.  EL  V.  ILH.  IL  VM»  TLH  W.  A wl  N.  A WALL. 
30381*  R. I CASE) 

3039  0 WRITE!  I.  620)  I CASE.  *L  V.  !LH.  ALP.  T w.  FR,  E.  p V.  GA88A,  *LVW.  /LHW.08  X.T 
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PROGRAM  UNREINF  (CONTINUED) 


30410  RETIJRS 
30420C 

30430CS  DETERMINE  MAXIMUM  RESISTANCE  DURING  DECAYING  PHASE 
30440C 

30450  262  MM.<FR»PV/TW)«TV*TW/6.0 
30460  W»ELV*TW*GAMMA/|  728.0 
30470  IFtICASE.GT.  4)  OTTO  278 

30480  0£>:ER3*|2.0«TW»<2.0«PV»W)«U  .0»0.5*ALP2.'B>/(ELV«»LV«C3-2*B>) 
30490  G3T0  279 

30  500  2 78  QE?ER0*S.O«Tw«<PV*O.25*W>/<ZLV*ELV> 

30S10  2 79  CONTINUE 
30520  YFAIL*TW 
30530  KEO=OEZER0/TW 
30540C 

30550CI  DETERMINE  MAXIMUM  RESISTANCE  DURING  INITIAL  < FLEXURAL  * PHASE 
30560  QU*MM/<8SS«TLV«?LV> 

30570  <S»E*IG/<ASS»ELV«*4> 

30580  yu*ou/ks 

30590  IF<ICASE.£O.|.OR.ICASE.£O.5>G3T0  280 
30600C 

30S10CI  CASES  2.3.4 
30620  Q1»MM/(BF«?LV«ELV> 

30630  KF*E*IG^<AF»?LV»«4) 

30640  yi»oi/kf 

30650  KEP*<QU-01>/<YU-Y1  ) 

30660  GOTO  280 
30670C 

30680CI  DETERMINE  WHETHER  SENDING  3R  EQUILIBRIUM  RESISTANCE  IS  LARGER 
30690C 

30700  280  IF<QU*LE. QEJERO I G3T3  285 
3071 OC 

30720CJ  QU*QE?ER3 
30730  Y2«YU 

30740  92*OEEER0«U.O-YIJ/TW> 

30  750  03 TO  29S 
30  760C 

307700  QE'EROXIU 

30780  285  Y2»QE?ER0/«.<S*<E0) 

30  790  02«HS*Y2 
30800  295  CONTINUE 
308  IOC 

30820CI  MODIFY  RESISTANCE  VALUES  BY  APPROPRIATE  FACTOR 
30830  310  91»0I*QMULT 
30840  Q2*Q2*9MULT 
30850  QU«aU*QMULT 

30860  KS»KS«9MULT5  HF»><F*0NULTS  <EP»HEP«0MULTS  < E0»< EQ* OMULT 

308  TOC 

30880CI  OUTPUT  L3AD-0EFLECTI0N  CURVE 
30890  tFIXRANO.EO.  1MBT0  325 
30900  PRINT  650 

30910  IFUCASE.E9.I.3R.ICASE.EO.5XWT0  320 
30920  WRITEC1. 660)01. Yl 
30930  320  XXXXX*0.0 

309  40  WRITE!  I.  660)  OU.  YU.  02.  Y2.  XXXXX.YFAlt 
30950  325  RETURN 

30960C 

309700  DETERMINE  THE  RESISTANCE  IPER  UNIT  AREA)  3F  THE  WALL  AS 
309800  A FACTION  OF  YU) 

30990C 

31000  500  IF«y<I).GT.Y2)&1T0  520 
.1005  IFtYU).GT.YU)OOTO  502 

31010  GOTO!  502.  510.510.  510.  502.  510.  510).  I CASE 
31020C 

310300  ELASTICl  PHASE  — CASE  l 

31040  502  Q*Y(I)«KS 

31050  505  JHLM«EHLMSE 

31060  VH1«VHISS  VH2*VH2S 

31070  VV1»VV1S*  VV2»VV2S 

31080  RETURN 

31090C 

31100  510  IF<Y<1).GT.Y1  ) GOTO  515 
31 1 1OC 

311200  ELASTIC  PHASE  — CASES  2.3.4 
31130  9*Y<I)»HF 
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PROGRAM  UNREINF  (CONTINUED) 


3 1 1 40  XKLMaTRLMFE 

3! ISO  VHI*VHIF*  VM2*VH2F 

31160  VVI=VVIFS  VV2*VV2F 

31  no  RETURN 
31 1 ROC 

3I190C1  «ELAST3-PLASTIC«  PHASE  (CASES  2.3.41 

31200  sis  q*qi*-(£p«<y<ii-yi  ) 

31210  G9T3  SOS 
31220C 

31230CI  SEC3N0ARY  (EQUILIBRIUM)  PHASE 
31240  S20  IF(Y(l!.GT.TH)G3T3  52S 
312S0  9*-<E0«(T8-Y(I  1 ) 

31260  '8LM*!-(LNP 
31270  VH1 a VH IPS  VH2*VH2P 
31280  VVHVV1PS  VV2* VV2P 
31290  RETURN 
3I300C 

313I0C1  HAUL  COLLAPSED  --  N0  RESISTANCE  < T3  AV3I0  DIFFICULTIES 

31320CI  FOR  CERTAIN  CASES  SET  RESISTANCE  EQUAL  T3  VERT  SHALL  VALUE) 

31330  S2S  0*  1 E-  1 0 

31340  RETURN 

JI3S0C 

3I360C 

Z 1 370  600  F3RMAT(/«INPUT  L V.LH.  T W.  PV.  E.  -'8.  1 CASE.L  V H.LH  w GAMMA*) 

31380  620  F3  RH A r v / * HALL  PROPERTIES  --  SUPPORT  TYPE  NJ.*.I2/ 

31390*  « LV  **,  F6.  I . * IN.  LH  a«,F6.l,c  IN.  LV/LH  a*. 

31400*  F7.2/«  TWa«.F6.l«<  IN.  FR  aa.F7.|.<  PX1*.SX> 

31410*  • E a«.F10.|.a  PSI«/«  PV  *«»F6.l»*  LB/IN. *»5X» 

31420*  * GAMMA  a«,F6. 1.*  PCF«,/,«  LVW  a«.F6.|«*  IN.  LHh  aa, 

3142S*  F6.  1 » • IN.  OMULT  aa,F6.3> 

31430  650  F3RMAT(/*LJAO-OEFLECT!3N  CURVE*. /»  3x.  »0  (PSI)«.4X.*Y  (IN.)a) 
314S0  660  FORM  AT  < F9 .2,  F!  2.  4) 

31460  670  F3P*AT<  I H 1 
31 480C 
31490  END 

40000  SUBROUTINE  C3EF(  I CASE.  R.  ASS.«SS»  AF,  RF.  I , ’X  V.  ELM.PV.  NX.  CF, 


40010* 
40020C1 
40030CX 
40040C 
40050 
40060 
40070 
40080 
40090C 
40100 
40110 
40120 
40130 
40140 
401  SO  8 
40I60C 
401 70Ct 
40180  20 
40190 
40200 
40210* 
40220 
40230 
40240C 
40250C: 
40260  30 
40270 
40280* 
40290 
40300 
40310 
40320* 
40330 
40340C 
40350CJ 
40360  40 
40370 
40380* 


E.  I ENTRY! 

THIS  SUBR3UTINE  DETERMINES  M7MENT  AND  DEFUECTI3N  C3EFFI C!  ENT«= 
F3R  3NE-HAY  < CASES  5-71  AND  TH3-WAY  (CASES  1-4!  HALLS 


REAL  I.MOR.MPRSO.NU 
IF<IENTRY.E0.2)G3T8  200 
NX*  1 

IFUCASE.  GT.  4)03T3  SO 


R2*R*R 

R3»R*R2 

R4aR?*R2 

ASS*-. 00 70 30*. 01 3890» R-. 003456* R2*. 00028 6»R3 
BSS»-.058  332*> 1 39 31 4* R- . 03S609* R2»  . 00301 6«F3 
G0 T9 <41,20.  30.  40!  . I CASE 


CASE  2.  FtXEO  IN  F.VjR  SIDES 
NX*  3 

AFa-, 0034 30*. 007327* R-. 003365* R2*.000664 6* R3-.0000476 6* 84 
BFa-.  101  1 SO*  .2608  75*8-.  1 38982*  82*  .034677*  R3- .00401  6*84 
» .000  1 70*  8*  • 5 

CF»-.  1 674*.  3554*8-.  1 71  4* R2»  .028  6*83 
G3T3  41 


CASE  3-  FIXED  3N  SM3RT  SIDES.  SIMPLY  $>Jpp!RTEO  3N  L3NG  SIDES 

NX*  4 

AF*. 00451  3-.  01  7525*  R*.  02 309  5*82-. 0!  0325*  83*.  002 18  7*84 
-. 0002208* 8** 5 * . 000008 408* R»* 6 

BFa-. 1221  49*.  3 1 3 445*8- . 1 S39 79* R2* . 0361  92* 83- .00401 S* 84 
*. 0001646*  R*«5 

CF*2.  19  58-  7.  756  4*8*  10.8  3 76*82-  7.  249  5*83*  2.  344*84 
- • 2954*  R*«  5 
00  T9  41 


CASE  4.  SIMPLY  SUPP3RTED  38  SM3RT  SIDES.  FIXEO  3N  1.3 NG  SIOES 
NX  ■ 3 

AF*-.  002  765*.  008  652*8-.  005698*R2».  00 1 829*  83-.  0002859*84 
.00001  739*R**5 
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40390  BF*-.  060320*.  25651  5«R-.  t 7564H*R2<  r 5 T9  2B*R3- .00922  7*R4 

40400*  *.000569«R«*S 

40410  CF*5.898  7*R-1.6669-7.9398*R?*5.3142*R?-1  . 7623* R4*. 231 3*  R** 5 
4042 OC 

40430  41  IFtR.GT. 2. 0>CF«1. 0/12.0 
40440  IF(PV.  EO.O) RETURN 

40450  ARATt9*AF/ASS*  8RATI0*BF/8SS 

40460  BF0»BFS  CF0*CF 

40470  Q0T3  220 


40430  41  IFtR.GT. 2. 0>CF«1. 0/12.0 

40440  l Ft PV. EO.O) RETURN 

40450  ARATI3*AF/ASS*  8RATI0*BF/8SS 

40460  BF0»BFS  CF0*CF 

40470  00 T3  220 

40480C 

40490  50  IFfPV.NE*O)G0T0  300 

40S00CI  CASE  5.  3NE-WAY  SINPLY  SUPPORTED  WALL 

40510  ASS*  5.  0/38  4.0 

40520  BSS*0. 125 

40530  G0T3t  270:  270#  270.  270*  270#  60#  707.ICASE 

40540C 

40550C1  CASE  6.  ONE-WAY  FIX^D  END  WALL 

40560  60  AF*  1.0/384.0 

40570  BF*1. 0/12.0 

40580  CF*1 .0/ 1 2.0 

40590  NX*3 

40600  RETURN 

40610C 

40620C1  CASE  7.  ONE-WAY  PRCPEAPEO  CANTILEVER  WALL 

40630  70  AF* 1 « 0/ 185.0 

40640  BF»0.12S 

40650  CF*0. 125 

40660  NX*  3 

40670  RETURN 


40630  70  AF*1. 0/185.0 

40640  BF»0.12S 

40650  CF*0. 125 

40660  NX*  3 

40670  RETURN 

40680C 

40690  200  IFf  ICASE.  GT.4)G3T3  300 

40  700C1  OETERNINE  ELASTIC  DEFLECTION  AND  HONENT  COEFFICIENT  FOR 
40 71  OC*  TW-WAY  wall  WITH  inplane  forces 
40  720  220  PI *3.  14159165 
40730  NU-0.3 

40740  PE*4.0*P1«PI «E* 1/ 1 ?L V*?LV«t I .0-  NU*NU>  ) 

40750  BV*0 

40  760  230  AV*0 

40770  PPE»PV/PE 

40  780  TER'l6*4.0*P!*Pt*R*S9RTtPPE> 


40  730 

40  740 

40750 

40  760  230 

40770 

40  780 

40  79  OC 

408000 

40810 

40820 

40830 

40840 

40850 

40860 

40?  70 

4C880 

40890 

40900 

40910  240 

40920  245 

40930*  • 

40940 

40950* 


SERIES  S3LUTI0N  USED  T0  DETERMINE  COEFFICIENTS 
03  250  N*l.  7.  2 
8PR*H*PI«R 
NPRS3*NPR««2 

fWS0*NPRS0*2.  0«NPR«P  I ♦ SORT!  PPE  > 
ENS3»NPRS0-2.0*NPR*PI»S9RT<PPE> 
TER’45*'4«NPRS9*INPRS0-4.0*Pl»PI*PPE> 

C3S«(M2*0.5*IEXP(0.5«S0RT<  CWS9>  >»EXPC-0.  5*  SORT!  OtSO))) 
IFCENSQ.LT.O)  Q0T3  240 

C3SMEN2*0. 5*f  EXPt  0.  S*S9RTt ENS9>  > » EXPt -0. S«SQRTtENSO> > > 

03 T3  245 

0 C0SKEN2»C1S<O.5«SORT<-ENSO)> 

5 Av*4v»  ( 1 .0*  t E*S9/C0SHOR2-GNS9/C3SMEM2>/tN»TERN6>  > 

• <-l  >••<  CN-l  )/2>  / TER*15 

3V*Bv*tNPRS0*  C (MSO«<NU«EMSO-NPRS3>/C3SHEN2-ENSO*(NU*CHSO 
-NPRS0>/C3SH(J42>/{»I»TERW6)  )•{-!  >**f  ft-  1 )/2)/TERN5 


40960  250 

409  70C 

409800  1 

40990 

41000 

41010 

41  020C 

4I030C1 

410*0 

41050 

41060 


CONTINUE 
CASE  1 

AVSS*AV* t 1 .0-NU«Nj)«R4» 4.0/ PI 
BVSS»BV*R2*4«  O/PI 
1F(1CASE.EQ*1)GBT3  260 

CASLw  .■'*  3.  AND  4 
AVF*AVSS*ARATI3 
8VF»BVSS*BRATi* 

CF*CF0*9VF/RF3 


41070  258  AF*AVF 


41090  260  ASS*AVSS 


41100 
41  110  270 


9SS*9VSS 

RETURN 
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4 ' 20C 

41I30CS  3NE-WAY  WALLS 
41140  300  EIPV=F*I/PV 
41  ISO  U=TLV/SORT<Et°V> 

4H60  ua=o.s«u 

41170  T£RM!=1.0/C3S<U2)-1.0 

41 180C 

41190'.!  CASE  S.  ONE-WAY  SIMPLY  SUPPORTED  WALL 
41200  BSS*TERMi/U*«2 

41210  ASS=<8SS-0. I2S)/U*«2 

41220  OT3C270.270. 270.2  70. 270.310.  3201.  ICASE 

41230C 

41240C!  CASE  6.  ONE-WAY  FIXED  EMU  WALL 
412S0  310  NX*3 

41260  BF*<  1 .0-U2/TAN(U2>  >/'J*«2 

41270  AF*-BF*BSS*ASS 

4 1 280  RETURN 

41290C 

41300C1  CASE  7.  3NE-WAY  PR3»PE0  CAN  TILEVER  WALL 
41310  320  9X*3 

41320  BFiTANCU)  *<TANlU2>-U2>/f 'J«<TAN(U>-U»  > 

41130  AF=<8F*<0.S*S!N<U2>/TAN<U>-  C3SC  U2‘.  ) - 1 si  9<  02)  / TAN<  iJ> 

41340*  -C1S<U2>-SIMO|P>/S!N(iJ>*0.  I25«-J«M»  1 .0)  /M«  <?>/iJ**2 

41  ISO  RETURN 

41 360  999  END 

SOOOO  SUBROUTINE  TRASS  < R.  /LV.'LM.  ICASE.XRAX.  ? XL 4,  /<LMSE»  '.XLNFE, 

50010*  EXLNP.VL1S.  VL2S.  7SI$.  VS2S.VLIF.VL2F,  VSIF.  VS2F.7LIP.  13.  2P. 

10020*  YS1P.YS2P1 

50030C 

50040C:  THIS  SUBROUTINE  0ETERM1  YES  L.’AO  AND  MASS  TRANSOMS  rl  19  F ACTORS 
SOOSOCl  A90  DYNAMIC  REACTI19  C JEFFI Ci ENTS  FIR  TWI-wAY  W.LLS. 

50060C 

50070C!  DETERMINE  LOAD  AND  MASS  TRANSFORMATION  FACTORS 

500B0  92*9*9 

S0090  83*9*92 

50100  94*82*92 

50110  95*92*93 

50120  96*93*93 

50130C 

50140C!  CASES  1 X 5 --  ELASTIC  RANGE 

SC  1 50  330  MM5E'*20.49*B3«<  |./12.-32/7.S*B3/2l*B4/14-a5/19*BS/90> 

50160  ?XMSE2*0.  1039-0.  7066*9 

501  70  »<LSE1  = 6.4*92*<|.  • 6»- 92/  I 0.  *B3/  30.  ) 

50190  SXLSE2*0. 64-0.913 4* 9 

50190  BARSI  *9«C  1 ./I  2.-92/  1 5.  *93/42.  )/ ( 1 . /6.  -B?/  1 0.-B3/30.  > 

50200  9ARS2*<0.  1 2 70B3-0.  1 94524* 91/ C 0.  4-0.  509333*B> 

50210  EXMSE*TK  MSE1*TXMSE2 

10220  2XLSE*/XLSE1*/XLSE2 

50230  IFImRAX.EQ.  1 1 G3T3  335 

50P40C!  CRACX  PATTERN  4 
50250  CVS*0. 5*9 

50260  C\A-*0.5«(  *.0-R' 

10270  XP*TLM«B/3.0 

50290  XBARS* BARSI *TLM 

50290  TP*XLY«<  1 .0-  4.0*B/3.0»/<4.0*U  . 0-9)  » 

50300  :EARS*BARS2*’LV 

50310  X9A.’P*0. 5*B*2L9 

50320  *8ARP*’LV*<  1 ./24. - 9/ 1 6.  >/ < 1 . /9. - 8/ 6.  > 

50330  G'T3  339 

S0340C!  CRACX  pATT-’N  B 
50350  335  CVS*3. 5*' 1 .0-B) 

50360  CYL*0.5«B 

503  70  XP*2LH»  C 1 .0-4.0*B/3.0>/.  4.0*1  I .0-9)  > 

50390  XBARS*BSRS2«'LM 

50390  /P**LV«  "3.0 

50400  ?3ARS*9  . (SI  «*LV 

a0410  X9ARP»XL9«I  I ./24.-B/  I 6.  >/(  I ./9.  - 9/6.  > 

j04*(0  TBARO.  5*B‘/Lv 

SO 430  339  *<Lv3E*?<MSE,  EXLSE 

50440  'XLM*/<LMSE 

50  450  «T3<  390.  340.  3 iC.  360.  390.  340.  4 70'.  I CASE 

S0  460C 

504 10C»  CASES  2.  3.  X 4 --  ELASTIC  RANGE 
50490  351  1 FI < BA  * • c1»  1 1 git  1 365 
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PROGRAM  UNRE1NF  (CONTINUED) 


50490  <53 TT  340 

50500  360  tF(<R4<.E0.0>Gm  365 

5051  OCl  CASES  2A,  29,  34,  49.  4 6 

50520  340  /XMFEI*S12.0*95«(  1 . 0/ 30- - <5/  1 0.  ' » 3.  *92/24.  - 93/  1 5 . » 34/90.  > 

50530  I4LFEI»32.0*93«t I ./ 1 2.-9/ 1 0.  ' 42/ 30. > 

50540  94RFI  = B«<  .05-9/  I 5. » 92/ 42.  )-'<  1 . / 1 2.  - 3/  1 0.  *92/ 30.  > 

50550  03T3C370.  365,  370,  370,  370,  365),  [CASE 

50560CI  CASES  2A,  29.  39.  4A.  4 6 
50570  365  7<4FE2*0. 4065-0.  61 44*9 

50590  EKLFE2«0. 5344-0. 7324*9 

50390  9ARF2*<.091667-.134095»B>/<.266  34666  7«9> 

50600  <33T3:375,  360,  375,375.  375,  364 >.  1 CASE 

5061 OCt  CASES  2A  4 29 

50620  368  E4MF£«^44FE1  ♦ '<4FE2 

S0o30  ?4LFC»?4LFE1*?-<LFE2 

50640  00  T3  340 

SO&SOCl  CASES  3A  4 49 

50660  370  /<MFE*/<MFF1*/<9SE2 

50670  /■<LF£,;4LFE1»!<LSE2 

50630  O0T0  340 

S0690C1  CASES  39,  4A.  4 6 

S0700  375  H'1FE*'<4SE1*»-<9FE2 

50710  T<LFE*'-<LSEt«-'<LFE2 

50720  340  KLMFE^XIFE/’XLFE 

50730  ?<L'1*/<L'1FS 

50  740  G3T3  390 

S0750CI  CASE  7 

50760  470  »<L4FE*0.74 

S0770C 

50740CI  ALL  CASES  --  PLASTIC  RAVGE 

50790  390  7<4P*<  I -.0-81/3.0 

50400  !4LP*0. 5-9/3.0 

50410  KLMP-K'IP/ULP 

50820C 

S0B30C 

S0940CI  0ETER4INE  OfSARIC  REACTJ34  CJF  ’dEVT*  F3R  SM3RT  <VS>  AXO 
50950CI  L3XG  CVL)  EOGES 
508 60C 

50870  I F<  I CASE-LT,  5)  G3T3  395 

50880  XBAR$* I E- 1 OS  9ARF1-1E-10J  XBARP»IE-I0 

50490  395  CaxmiJE 

50900  O0T3?  450,  400,  400,  420,  450,  400,  445),  [CASE 

50910  400  IF(4RA<.L3.1)OTT3  4|0 

50920  X9ARF.0ARFt«?LM 

50930  IFUCASE.E9.3)  WT3  430 

5094C  40S  E9ARF*9ARF2«TLV 

509 SO  03T3  440 

50960  410  XRARF.3ARF2VLH 

50970  [FUCASE.E0.2>03T3  435 

50940  415  ;9ARF«8ARF1«/LV 

50990  G0T0  440 

51000  420  IF«RA<.E3.1  5O0T3  42S 

51010  XB4RF»BARS1«/LM 

51020  03T3  405 

51030  425  XBARF»9ARS2*?LH 

51040  G3T3  415 

51050  430  -9ARF«9ARS2»'LV 

51060  . '8  440 

51070  4.  (RF»BARS1«ELV 

51080  440  LmiXUE 

5I090C 

SllOOCt  CASES  2.  3,  4,  * 6 --  ELASTIC  R4XGE 
SlttO  VSIF«CVS*<1»0-XP/XBARF> 

51120  VS2F.CVS»(XP/XBARF) 

51130  VLIF»CVL«<  1 .0-EP/E9ARF) 

51140  VL2F«CVL»t:.P//BARF) 

51150  VSI *VS1 F 

SM60  VA.1*VL1F 

III  70  O0T3  450 

51 180C 

SII90CJ  CASE  7 — ELASTIC  RAXGE 
55200  445  VSI F«0 
51210  VSI»0 

51220  VA.IF.0.459 
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PROGRAM  UNREINF  (CONTINUED) 


VLI»VL1F 
VL2F*0. 1 65 


51230 
51240 
51250C 

5I260CI  CASE  1 t 5 --  ELASTIC  RAHGE 
51270  450  VS1 S*CV?«< I .O-KP/XAAAS) 
VS2S*CVS«<XP/X5AR«) 
VLIS*CVL*<t.0-EP/'i3ARS) 
VL2S«CVL«C*P/EfiARS> 

G3T3<455»  460,  460r  460.  456,  460,  460).  I CASE 
VS I *VS| S 
VL1=VLIS 


51230 
51240 
51300 
51  310 
51320  455 
51330 
51340C 

S13S0C1  ALL  CASES  --  PLASTIC  RAHGE 
51360  460  VSie*CVS«(|.0-<P/XRARP> 

51370  VS2P=CVS«<XP/X5ARP) 

E 1 350  VLtP*CVL»<1.0-'P/’AAAP> 

51340  VL2P*CVL«<EP/'AARP> 

51400  RETURH 

51410  EHO 

60000  SIJRR3UTI  HE  WI  H03  u<  OHUL  T.  ELV,  ELH.  EL  VW.  ELHK.  AWI  H»  A.ALL.  A.  I CASE) 

6001 OC 

60020C1  THIS  SU3R3UTIHE  0ETER41 HES  THE  STRUCTURAL 
60030CS  H30IFICAT13H  FACTOR  F3R  WALL S Hi  TH  wlHOlwS 
600.75  IF(1CAS£.GT.4.AH0.1CAS£.HE.10>G3T3  320 
60040  RWWS*EL  VW/ELV 
60050  RWWL«ELHW/»LH 
60060  RAREA*  AWI H/ AyALL 

600  70  IF(R.LE.1.S)G3T3  300 
60050  I F < RwwS*  GT«0.  7)  G3T3  300 
60040  1FCRWWL.LT-0.  51  (5JT3  300 
60100  IFCRWWS.EO.RWUL)  r»T3  300 

601  IOC 

60I20CJ  CASE  WHERE  LV/LH  »*  , . 5»  LVW’/LV  <=  0.7,  AHDLHw/LH  **  0.5 
60I30CI  TAUT  LVM/L7  HOT  EO'IAL  T1  LHW/LH) 

601  40  0HULT*-5-3S46l  - I2.6644«RARFA*4.  3)662*RwwS»0.5  4643«RwH. 

60150*  - 0. 223*  R- 1. 0 7269«  < EL  VW/'LHw)** 0.9*6.  549  42* EXPI  RAREA  > 

60160  G3T3  315 
601  70C 

601 50Cl  CASE  WHERE  IRE  OR  H3RE  IF  A93VE  C3HDIT13H3  IS  43T  HE T 

60190  300  3SUL T*0.  62022-2. 2341  5«RAREA«»f  RWM.»«4>-0.  7»461*RWWL»*2 

6C200*  -2.27663«RWi*.*U.62522*RWWL/RAREA*»0.3 

60210*  ♦ 2.  63043* EXP<  RARER  > -0. 0-’26H» RwwS 

60220  315  CJHTIHUS 

60230  RETURH 

60240C 

60250C  3 HE-  WAY  ACTI34  WALLS 

60260  320  OHUL  T*<  A WALL  - EL  V*  ELHW)/  I A WALL -Awl  H > 

60270  RETURH 
60250  EHO 

70000  SU3R3UTIHE  RAH03H  <IEH"RY> 

70010C  THIS  SU5R3UTI HE  IHPilTS  HEAH  AHO  sTAHQARO  DEV!AT’3HS  E7R  RAH03H 
70i)20C  VARtAAI.ESi  OFHERATES  RAH03H  VALUES)  AHO  CXHTR’LS  RE7UIRE0 
70030C  HlfHRER  3F  CASES  t.  5E  RUHI  AHO  IHTP'ITS  El  HAL  RESULTS  AHO  SMHHARy 
700 40C 

C3HH1H  YClOOl.VU.  YFAIL. 0.  O'l.  AREA,  EH  ASs.  E3LH,  VH I » VH2,  VV1 . VV'2 
C3HH3H  'VALL.HIHC.  XRP.  < RAH’),  1,1  CASE,  F ir  VFAIL,  FR.  FPH.  EH,  FOY 

C3HH1H  foc, n« 4),ldtt°e,pext,rf,ks),rvj, pc,  rc,  to,p3,  tih-;,l,  s 

C3HH),i  /RAHO/  TIHEC.IWALL 
01  HEHSMH  CHI25C  7)  , CHI9  7t<  7),  TOISTC  7) 


70050 
70060 
700  »0 
70030 
70340 


701 OOC 

7011  OC  V«L  IES  F3R  9 7.  5 1 < F*  I 9 , 24,  29,  34,  39.  44.  4)  > 

OATA  CHI 25/.  4633,  .51  6 7,  . 5533.  « 532s.  .60  65,  .626  7.  .6440/ 

O'  ■*  CHI  975/  I . 72)5.  I . *402.  ! . 5 766,  I.  323  4,  1 . 4403.  I . 46)1 . I • 47J  1 / 
OATA  TOIST/2.04  3.  2.064.2.  04  5.  2,032,2.022.  2.016.2*010/ 


70120 
70130 
70140 
701 50C 
701*0 
'01  70 


03  T3  ( 5.  50.  70 ) . 1 EH  TRY 
5 XD'fHHYiXHIRHl  <-1 .0.  0-0,  I >0) 


J0I30C  IHt:iAL«E-.  RAH33H  H/-13ER  GEHER4TJR 


70190 

70200 

70210 

73220 

70230 

70240 


PRl  HT»  * * HP'IT  HRAHO*. 
REAO.HRAh  ) 

07  47  1*1, HRAHO 
X0UHHY-XH19MI ( 0.  0.  0. 0.  1 . 0) 
47  C3H  T!  HUE 

(HOEX»OS  SPS)*0*  sspsi=o 


76 


vr.  •> 


v?f;  ^.-  ?^2^rrsj^  ■ _ 


PROGRAM  UNRE1HF  (CONTINUED) 


70250 

70260C 

70270C 

70230 

70290 

70300 

703I0C 

70320 

70330 

70340 

70350 

70360C 

70370 

70380 

70390 

70400 

/0460C 

70470C 

70480 

70490 

70500 

70510 

70520 

70530 

70540 

70550 

70SSS 

70535 

70590 

70600 

70610 

70620 

70  630C 

70640 

70650 

70660C 

70670C 

70630 

70690 

70  700 

70710 

70  720 

70  740 

70750C 

70  760C 

70770 

7 0 780 

70790 

70800 

708  IOC 

70820 

70830C 

70840 

7O850C 

70860C 

703 70C 

70830C 

70390 

70900C 

70910 

709200 

70930C 

70940 

70950C 

70960C 

709 70C 

70980C 

70990. 

71000C 

71010 

71020 

71030 

71040 

71050 


ICHECH*23 

INPUT  MEAN  AMD  STANDARD  0EVIATI7N  F 3R  RANDJM  VARIABLES 
PP!  NT  87 
REA0.S4EA3.FS0 
GJT3UU.  20).  I WALL 

U9REI  9F3RCE0  l ..S  *ITH1yr  ARCH  1 4G 
10  BRI9T  34 

3EA9»  FAME-i'  • .-50 
PRINT  94 
RETURN 

U4RE1 9F3RCE0  UA..LS  I .3  AHC3I3G 
20  PRINT  85 

READ. FCM MEAN. FBRSO 

PRINT  95 

RETURN 

GENERATE  RAN03M  VALUES 
SO  GJT3<S2.  54).  1 WALL 

52  FR*XN3RMK0.0.FRMEAN.FRS0> 

IFfFR.LE.O)  fS3T3  52 

G1T3  58 

54  FPM*XN3RM1 <0.0. FPMMEAN. FP4S0) 

I F(  FOM.LE.0)  G3T3  54 

55  ALP3A2XVJR4K0.0.  1 . 0.  0.  3) 

IFfALPHA.LT.  0.4.  ?R.  ALPHA.  Gf.  1.6)  G3T3  55 
E4*1000.0»ALPHA»FPM 

53  IFf S3EAN.EO.O) G1T7  65 
60  S*XN3RM1<O.O.SM£AN.SSU> 

I F(  S.LE.O)  G3T3  60 
65  IND£X«IN0EX*1 
RETURN 

Si*  VALUES  3F  PS3  ANO  PS3»«2  F3R  USE  IN  STATISTICAL  ANALYSIS 
70  SPS3«SPS3*PS3 

SSPS3«SSPS3*PS3*PS3 

3UTPUT  FINAL  RESULTS 
03  T3f  72*  74)  . I WALL 
72  PRINT  90.  FR.  S.PS3.TI4EC 
G3T3  30 

74  PRINT  91.FPN.E4.S.PS3.TIHEC 
03  TO  80 

80  IFUNOEX.Lr.  I CHECH) RETURN 

OETERHINE  MEAN.  STANOARO  0EVIATI3N.  ANO  STANDARD  ERR3R  F3R  PS3 
EN3»IN0EX 
?4EAN»cos3/»N1 

SO*SORT<  f SSPS3*EN3«/MEAM»XMEAN  >//N3> 

STQERR»S0/<S0RTUN3-I  )> 

CHECH  IF  MAXIMUM  3F  50  PS3  SAMPLES  3BTAINED 
I Ff  INOEX  .E0«50)G3T3  62 

CHECH  IF  9S*  C3NFI OENCE  INTERVAL  f?r  MEAN  PS3  VALUE  IS 
IF<  STO£RR*TOI  ST'  UNDEX-1  S>/ 5)  / ».  MEAN.  GT»0.  I 0)  G3T3  61 

C3NFIDENCE  INTERVAL  IS  WITHIN  10*  — DFTERMINE  UPPER  LIMIT  3F 
95*  C3NFI OENCE  INTERVAL  F3R  STANDARD  0EVIATI3N 
PROBABILITY  VALUE  AND  ITS  95*  CONFIDENCE  INTERVAL  U»PER  LIMIT 
62  SO  J*  SO/  < S3R T<  CM  1 2 5 f U N OEX  - 1 5 ) / 5 > > > 

CHECH  IF  MAXIMUM  3F  50  PS3  SAMPLES  38TAINFD 
IFUNOSx.E0.50>03T3  53 

CHECH  IF  ijp»ER  VALUE  3F  95*  C3NFI  OENCE  INTERVAL  F3R  STANDARD 
DEVI ATI3N  IS  WITHIN  O.IO»MEAN  3F  THE  STANDARD  DEVI  ATI 3N 
IFf  USOU-SO)/YMEAN».  GT.O.  10)  G3T3  61 

95*  CONFIDENCE  INTERVAL  IS  WITHIN  10*  FOR  BOTH  MEAN  ANO  90* 
PROBABILITY  VALUE  --  THEREF3RE  SUFFICIENT  SAMPLES  OBTAINED 
OETERMINE  RSI  CONFIDENCE  INTERVALS  FIR  MEAN.  STANOARO  DEVI ATI3N 

AND  |0*  AND  90*  PR3BABIL I TY  VAlUES 
S3  YMEANL*  TMEAN* STDERR»TOI ST<  C I NDEX- I 5) / 5) 
EMEANU»'MEAN*STOERR»TOI  STI  UN OEX-  1 S>/  5> 

SOL  * SO/ < SDRTf  CHI  9 75<  UN  OEX-1  S>/ 5)  >> 

->«,!«{MEAN-1  • 282*  SO 
P 0L= /MEAN- 1.282* SOU 
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PROGRAM  UNRE1NF  (CONTINUED) 


71060 
7 1070 
71090 
71070 
71  100 
71110 
71 I20C 

7i  noc 
71140 
71 I 50* 
71160 
71170 
71  1<?0C 
71  HOC 
71  2009 
71210C 
71220 
7 1230 
71240C 
71250 
71260 
71240 
71270 
71  300 
71320 
71  330 
71 140* 
71  360 
71 370* 
71  340* 
71  070* 
71  400* 
71410* 
71  420 
71  430* 
7 1 440C 
71  450 
71460 
71470 
71440 
71  490 
71  500 
71  510 
71  520 
71  530 
71540 


P|0'I**4E44-  I . 24  2*$')L 
“90**4EA4*1  .292*  s<) 

P40L**4£44*1  .242*«|)L 
P40* '4449* 1 • 242*  SO 
P90tl**4E44*  1.242*  40>l 
P90U*  *4*144*  1 » 24  2*  S‘5'1 

VJT°'1T  STATISTICAL  P4RA4KTERS  If  I4CIPIK4T  C5LL  A“SE  PRCSSJRE 
PRI  4 T 100.  *4^44.  *440  4L*  *4£44U.  SO.  SOL.  s-O'J.  «*  I 0.  e I OL  . ° I OU. 

P90.P40L.P43U 
PRI  4 f 105.  140E4.  STOERR 
r.lfl  949 

951  CV4F10E4CS  1 4 TCP  04L  IS  4.5T  vl  T41 4 101  FJR  95M  4-44  440  40 

VALUES  --  THEREFORE  79T414  5 A30I1.14AL  SA4PLES 
61  IC4EC4*1CHEC<*5 
RETUR4 

44  PJ44Ar</«  I 4PJT  4444  A40  SIA40AR9  l)EVtATI>4  F 34  F4*.t) 

46  P,JP4Ar<*«14PMT  4EA4  A40  SrA4L)AR0  I5EVIATI54  F 5R  F‘4*»«> 

47  F3R44TI  /•!  4P'(T  4P44  A40  STA40ARD  l)EVtArt74  PI9  S#.t> 

90  P394AT<P9.2.  PI  1.2.  FI  0.2. PI  4. 3) 

41  F 4 24  A T * F9  • 1.  PI  6.  I.  PI  2. 2.  PI  0.2.  Pi  4.  3) 

94  F3R4AT<//*«  54.  *FR*»  104.  *S*»44»  *PS3*»  64»*C5LLAocE  Tl***) 

9 5 F.5R»4T<//*  . 54.  *PP4*.  I 14.  « £4*.  124»«f*»44»*PS5*.6<» 

•C3LLAPSE  T14E*) 

100  P3R4ATC/*/.  I 14. ‘STATISTICAL  PROPERTIES  5P  I4CIP1P4T  PS5*. 

//.34<.*45t  C44PI  DE4CE  L 1 41  TS«,  /»  74.  • I TE4«»  14  4. 

• VALUE  LOWER  |P“ER*»**»*  4EA4*.P2°.P. 

2P12.2.//.*  s TA40AR0  0EVIATI34*. P15. 2.2912. 2. **» 

• 10t  PR3AARIL1TY  VALUE*.  3F 12.  2./*. 

• 90 1 PR3AAR1LITV  VAL  JE*.  3P12.25 

105  F3R44T4 2/»  54.  * 4* I49E4  3F  49SERVA r I 34c  **»I3./.5x. 

•ST440A90  ERR5R  **.P4.2) 

449  ST3P*  £40 
FU4CT134  443R41 <4. A. 4) 

I P<  4 5 1 0. 20. 20 
10  40*RA4P< -1.0) 

20  4 1 * RANF (0.0) 

42*  RA4FC  0.0  5 

r*SORT<  -2.0*AL3r,<4  1 1 >*<C3S<  6.24319  4*42)  > 

443R41»A*Y*9 

RET'JR4 

EvO 


ADDITI9N  T9  PR9GRA4  UMPEINF  T9  INCLUDE  L9AD  TYPES  2 • iP9UGH  5« 


looaoc  2.  TR1»4‘-  ».  74  *4  t 

1005QC  7.  s T*P  4 ».s- 

I 0060C  />.  145  *4I*(  T I44EL  1.5AO 

101’OC  5.  ARAlrAARY  L 1A0 

10120  0ME4S114  TT<20»,PJ( 

1 o J ->n  r.lT4(  I .2.  3.  4>.  I94T9Y 

1 >’40  1 I, ir  H I 00.  | lo.  1 1 O.  1 20.  1 OOl.LOrY-*- 
10290  1 n PPt  4T  410 

1 0700  pp ao.  r*. ro 

I 171  0 05?5  I 75 

10320  120  PP1 4T  615 

I 0770  REA9.  TR.  Tt  . TO 

10740  125  1 F(  < 1 4C- * 7.  1 I7*  r-144 

I 0750  PP1 4T  470 

10340  REA  >.P'l 

107  70  RET*J94 

10740  130  ORl 4 T 620 

10'  *0  RE  10.  40  51  4T.  < ITC  !>.•'-*<  1>.  1*1.  4P1I4T5 
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PROGRAM  UNREIHF  (CONCLUDED) 


vni  - a*‘i  * vs  i . > 

741  » |.(<hi\.*m>',.ui  i "» ' 

M-'l  > 

*14  4 '1  i ) I All  |:  .'•  JJ  IN  f 

I .*  A ) M * (.(.».*<  |)«  If.  * 4 7 - I .*  4 * < * - 

u,!  I’ll 

u*. » r<;  r,  { » - r i < i > 

•OS  » | I - 1 


M » > 

>-  r s > j 

| W ) 

J ''ll  !(>»'>»  'Hi  ’V', 
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COMMON  t < 1 00  > . r U.  YFAIL.  0.  QU.  AkFA,  ZMASS#  ZKLM.  VHI . VH2.  VVI , VV2 
CtWW  KWALL.KlNC.KRF.KRAND.  I.  ICASE.  FU»  VFAIL.  FR.  fW,  EM.  t DY 
CWHW  FDC.D<4».LDTYPE.PEXT»PF»PS0»PD0»PC»TC»T0»PP»TIMt#L.S 
C8MM6N  /RAND/  T1NEC.IWALL 

DIMEN  SUN  A<  100).  V(  100><T(100>#  VV(100>#  VHC 100). 

pex<ioo>»pin<ioo»#pn<ioo> 

READ  TITLE  AND  CJNTRiL  PARAMETERS 
PRINT  67 
READ  68# TITLE 
PRINT  85 

READ#  KVALL#  K INC#  LOT  YPE»KRF»KRAND 

DELAYaO 

VFAIL* 1 EIO 

CALL  RESIST! I) 

CALL  FORCE!  1> 
lF(KRF.EQ.O>GOTe  12 
CALL  F1LL!PINT»  l> 

I E ( K WALL  • EQ . 0 > G 8T  0 14 
PRINT  86 
READ.  DELAY 
D£LAY*DELAY /1 000#  0 
IFCKRAND.NE.  I JCPTB  35 
CALL  FORCE!  4) 

:all  RANOlMd) 

:all  RANom<2> 

CALL  RESISTO) 


0I3I0C 

0I320CI  NiNIMUM#  MAXIMUM#  AND  STARTING  VALUES  ARE  DETERMINED  FPR  CASES 
0I330CI  UHERE  THE  LOAD  CAUSING  INCIPIENT  C8LLAPSE  IS  T 8 BE  FfUND 


01340 

13 

IF(XINC.EO.O>G0Te  23 

01350 

rFre'J 

01360 

PFMAXaO 

01370 

PFMINaPF/2#0 

01380 

GOTO  20 

01390 

16 

PFa(PFMIN*PFMAX)  /2.I 

01400 

20 

CALL  F0RCE12# 

01410 

23 

IF(KRF.E0.0)GPT0  24 

01420 

CALL  FILL(P1NT#2) 

01430C 

0I440CI  INITIALIZE  VALUES  FtR  BETA  METHOD  (BETA  > ! /6>  AND  C8MPUTE  VA  U 

0I45OCI  FOR  FIRST  TIME  INTERVAL  ASSUMING  NALL  INITIALLY  AT  REST 

01460  24  la  I 

01 470  TlMEaO 

01480  T(l>*OS  V(I)aOS  Yd>«0 

014*0  DELTAaO.OOt 

01 520  IFCKtf  ALL#  EQ#O7G0TP  2* 

01530  27  IFCTtHE.GE.  (DELAY-0.00001 > >G0TO  28 
01 540  TIME*TIME»DELTA 

01550  CALL  FILL  (PIN  T.3> 

01560  G8T8  27 

01570  28  PIN  ( l ) aPlNT 

01580  TPNETaAREAaPINT 

015*0  T<  l )»TIME 

0(600  GOTO  30 

01610  29  CALL  F8RCE(3> 

01615  PEX(  I )*PEXT 

01620  TPNET*AREA«PCXT 

01630  PN(  1 >*PEXT 

01640  30  CALL  RESIST(2> 

01650  A<  1 >»TPNET/(ZMASS*ZKLM> 

01660  VV( I )» VVlaTPNET 

01670  VM(  I >aVHI*TPNET 

OI680C 

01 6*0Ci  PROCEDURE  FOR  ALL  SUBSEQUENT  TINE  INTERVALS 

01700  I t -a  I « 1 

01710  IF(1.LT.I01)G8T8  11 

01720  PRINT  *8.  TIME 

01730  *8  FOfWAT! /.*I*101I  TIME  aa,F6.3#ai 

017  40  GOT  8 6 


NALL  ASSUMED  TP  NfT  FAt'*> 
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PROGRAM  ARCHING  (CONTINUFS) 


u.750  11  TIME*  TIME*  DELTA 
01760  T<  1 )*TIME 

01770  A<  1 )«A<  1*1) 

017  80  CALL  FARCE ( 3 > 

01790  PEXC 1 )-PEXT 

01800  IF<KWALL.£O.|)GPT0  10 

01810  IF<KRF.EO.O)GOT?  3 

01820  CALL  FILL<PINT.3> 

01830  PINU)»PINT 

01840  TPN£T«AREA»<PEXT-P!NT> 

01850  GPTP  2 

01860  3 TPNET-AREA-PEXT 

01870  G8T8  2 

01880  10  CALL  FILL<P1NT.3> 

01890  PINC1)-PINT 

01900  TPNET-ARLA«PINT 

01910  2 PNU7-TPNET/AREA 
01920  OP  8 JJ-I.  10 

01930  YCI)-Y<t-|)*DELTA-VCI-l)»DELTA-DELTA«(AU-l>  /3.»A(1>  /6.  > 

01940  CALL  RESt  ST<2> 

01950  0T-Q4AREA 

01960  4 ANEW* <TPNET-flT>/< ZMASS-ZKLM) 

01970  ADELTA-ANEW-A!  t > 

01980  A<  I )r  ANEW 

01985  I F(ANEW.  £0.  01PRINT.  41985*.  TIME.  TPWET.QT.ZMASS.ZKLM,  Y<  1 )»  All-  1 ) 

01990  IF<A8S<AD£LTA/ANEW).LT.O.OI)G0TP  9 

oeooo  8 CWTINUE 

02010  A(I  >*ANEW-ADELTA/2.0 

02020  WRITE! 1»  SO) TIME.  PF.A!  I),  Y(  I > 

02030  9 CWTINUE 

020  40  Y!I>«Y!l-t)*DELTA*V!I-t>*DELTA*DELTA*!A!I-|>  /3.*A!1)  /6.) 

020  50  V!l)-V!I-l)*OELTA*!A!l)*A! t-l>)  /2.0 

02060  VV!I)-VV1*TPNET-VV2*0T 

0207  0 VH!l)«VMI*TPNET«VH2*aT 

02080  IF!VV!I).GT.  VFAIOGPTP  7 

02090C 

021000  CHECK  FAR  MAXIMUM  DEFLECT  1 W 0R  FAILURE  0F  WALL 
021 IOCI  IF  MAXIMUM  DEFLECTION  REACHED.  WALL  DID  NBT  FAIL 
22120  IF!Y!l).LE.Y!l-l>.AND.PN!I>.LE.PN!I-l>>CPT8  6 

02130  IF!Y!I  ).LT.O)G0TP  6 

02140  1 F! TIME- DELAY. GE. 0.0 10) DELTA-0. 002 

02  1 50  IF!Y!I>.LT.YU)G0T0  1 

02  1 60  I F! TINE- DELAY. GE.  0.020) DELTA- 0.005 

0ei70  1 F<  TlME-DELAY.GE.  0.  100) DELTA-0.  * “ 

02  1 80  1 F! TIME-OELAY.GE. 0. 500) DELTA- 0. 1 

02I90C  IF  FAILURE  DEFLECTION  REACHED.  WALL  FAILED 
02200  IF!Y!I:.GE.YFAIL)GPTP  7 

02210  G8T8  1 

0222 OC 

022300  INTERVAL  HALVING  PROCEDURE  T0  OETEWUNE  L0AO  CAUSING  INCIPIENT 

022400  C0LLAPSE  F0R  CASES  WHERE  DESIRED 

022500  WALL  DIO  N0T  FAIL  - SET  PFMIN  T0  PF 

02260  6 CVITINUE 

0227  0 IF!«RAND.EQ.  DGPTP  3t> 

02280  IF!KtNC.EQ.O)GPT0  18 

02290  36  PFMIN-PF 

02300  IFCPFMAX.G  .O)CPT0  17 

02310  PF»2.0*PF 

02320  GOTO  20 

023300  WALL  FAILED  - SET  PFMAX  TP  PF 

023  40  7 CWT1NUE 

023  50  TIMEC-TIME 

02360  I FIKRAND.  EO.  I >G  PTP  37 

02370  IF(KINC.EO.O>G8T0  18 

02380  37  PFMAX-PF 

063900  CHECK  T#  SEE  IF  L0AD  RANGE  IS  WITHIN  DESIRED  ACCURACY 
02400  17  IF!!PFMAX-PFMIN)  /PFMIN. GT.0.0DG8T8  16 
02410  l FIKRAND.  NE.  I )G PTP  18 

02420  CALL  RAND0MI3) 

02430  GST 8 34 

02440C 

024500  PUTPUT  DATA  INCLUDES  THE  MAX1N184  OEFLECTI  *1  AND  TIME  PF 
024600  8CCURAMCE  FSR  A NW!- FAILING  WALL  « THE  TIME  AND  VELSCITT 
024700  AT  C8LLAPSE  FSR  A FAILING  WALL.  8PTI 0MAL  8UTPUT  IS  THE 
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PROGRAM  ARCHING  (CONTINUED) 


02460C I ENTIRE  BEHAVIOR  TIHC'HI  ST6RY  BF  THE  WALL. 

02490C 

02500C:  OUTPUT  L BAD  DATA 
02510  18  CALL  FORCE!  4) 

02S20C 

0G530C*  BUTPUT  FINAL  RESULTS 

02540  1FCYC2  >.LT.rFA;L)WRITE<  1.70)Y!I  Mill 

02550  IFCYCI  ).GE.  YFAIDWRITE!  I.TDTU).  V!I> 

oestoc 

02S70C*  CHECK  TB  SEE  IF  ENTIRE  TINE-HISTORY  BF  WALL  IS  DESIRED 
02580  WRITE!  1*72) 

025*0  REAC.M 

02600  IF<H.ES.O>OBTB  25 

02620  I FIKWALL. EC. 1 >G  6TB  32 

02630  IF<KRF.  EQ.OIGPTB  26 

02640  WRtTE!1.7S>!T!J).PEX!J)»P!N!J>,PN!J)»Y!J)»  VV!J>.  VHCJ),J»I  I) 

02650  08TB  25 

02660  26  WRITE!  1*7  6>  CT<  J)  .PEXC  J>»  A!  J>,  VC  J>.  YCJ).  VV! J)»  VH!  J)»  J»t»  I ) 

0267  0 GBTB  25 

026(0  32  WRITE!I.7  6)!T!J).PIN!J)»ACJ>.  V!J>. YCJ).  VV!J).  VH!J)»  J»l»  I) 
026*0  25  WRITE!  1.T7  ) 

02700  GBTB  5 

027  IOC 

02720  67  FORMAT! /*INPUT  TITLE*.  ♦> 

02730  68  F0HHAT!A5*) 

027  4 0 70  FBRHAT! /*WALL  DID  NOT  FAIL  • MAX.  DEFLECTI  0i  0F«F6.2 

027  50*  • IN.  REACHED  AT*F7.3.*  SEC*) 

02760  71  FBRHAT!  /tWALL  FAILED  AT«.F7.3»*  SEC  ! FINAL  VELOCITY  •• 

02770*  F7.2*  IN. /SEC)*) 

0278  0 7 2 FBRHAT!  /•!  S TI‘  E HISTORY  BF  WALL  DESIRED  !YES*1.  NMO)»,t) 

02800  75  FBRHAT!/.  1 5X, ^PRESSURE  « WALL*/*  TINE  EXTERIOR  * 

02810*  • INTER! PR  NET  01 SPLACEHENT  VV  VH* / 

02820*  !F6*3.  3F10.3.  FI2.4.  F!  1.0.F8.0)) 

02830  76  FBRHAT!  /•  TIHE  PRESSURE  ACCELERATI  IN  VELOCITY  • 

02840*  *01  SPLACEHENT  VV  VH*  / 

02850*  CF6.3.F*.3.FI2.  I.  FI2.  2.  Ft  2.  4.  F|  1 . 0.  F8.0)  > 

028  60  77  FBRHAT! ///» 7 !• »)  ) 

02870  80  FORMAT* /•ACCELERATI  CN  N8T  CBt  VERGING  AT  TIHE  ■*.  F6.3. 

028(0*  • SEC  CPF  »*. F7 . 3.  • PSD*/*  AID  SET  EQUAL  TB 

028*0*  F8.I.*  CAVG  SF  LAST  2 ITERATIONS)*/*  Y!I>  **, 

02*00*  F(.  4.  • IN.*) 

02*10  85  rBRHAT!/* INPUT  K WALL !0* EXT.  I* INT) .KINC.LDTYPE.KRF.KRAND*. 

02*20*  • ! I ■ RAH 0(H)  • ) 

02*30  86  FBRHAT! /*INPUT  DELAY  TIHE  CHSEC)  TO  INITIAL  LOADING  OF*. 

02*40*  • INTERIOR  WALL*. *> 

02*30C 

02*60  **»  STOP 
02*70  END 

10000  SUBROUTINE  FORCE!  1 ENTRY) 

10C10C  THIS  SUBROUTINE  INPUTS  THE  LOAD  PARAMETERS  AND  DETERMINES 
I0020C  THE  LOAD  AT  A GIVEN  TIHE  FOR  THE  FOLLOWING  LOAD  TYPES* 

I0030C  I.  IDEALIZED  BLAST  LOAD  CFR04T  OR  SIDE  FACE) 

I0080C 

10090  COH«  Y ! tOO).  YU.  YFAIL.  0.  QU.  AREA.  ZHASS.  ZKLH.  VHI.  VH2.  VVt . VV2 
10100  C8NHO*  KWALL.K1NC.XRF.KRAND.  I. ICASE.  FU.VFAIL.FR.  FPH.EH.FOY 
tOUO  C8HH8N  F0C»D!4),LDTYPE»P»PR.  P56.  PDB.  PC.TC.TO.  P0.TINE.LL.S 
I0140C 

10150  GOTO!  tOO.  200.  300.  4).  I ENTRY 
10I60C 

1017  OC  INPUT  LOAD  PARAMETERS 

10190  too  IF!KRAND.EQ.0)G0T8  102 

tOI*2  W*IOOO  S PB-14.7  S COil  120.'  L6C«1 

101*4  RETURN 

101*6  102  PRINT  600 

10200  READ.W.P8.C0.L8C.  S 

10210  l F!L8C.  EG.  1 )08T8  105 

10220  PRINT  60S 

10230  RCAD.ZLEN.CO 

10240  105  IFIKINC.EO.DRETUm 

10250  PRINT  630 

10260  READ. PS* 

10270  PR»2.0*PS8*!7.0*P8»4.0*P38>  /!7.0*P(*PSB> 

10280  GOTO  215 
itOOOC 
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PROGRAM  ARCHING  (CONTINUED) 


IIOIOC  CALCULATE  LBAD  PROPERTIES  F0R  GIVEN  PEAK  PRESSURE 
11030  200  G0T0I2OS»2tO).L0C 

11040  205  PS0*  (PR-  I 4.O*P0*SORTC  I96.O*P0*PB*I96.O*P»*PR*PR*PR>  > /I  6.0 
IIOSO  G0T0  215 
11060  210  PS0»PR 

1I0V0  215  PDB»2.S*PS0«?'S4/{7.O*PP»PS0) 
itoso  i»ce*soRT(i.o»<6.o«Pse>/<v.o*pe> > 

11090  T0*W««0. 3333/12. 2399*0.  1866*PS0> 

II 100  G0T0<22O.225).L0C 
II 1 10  220  TC*3.0*S/U 

11120  PC*PS0*Il-TC/TO)*EXPt-TC/TO>*PDP*(l-TC/TO)**2*FXPI-2*TC/TO) 

11130  CD*I.O 

11140  RETURN 

It  I SO  225  TA.ZLEN^J 

II 160  TA2.TA/2.0 

II 170  TA2T0*TA2  /TO 

1 S 1 80  PA*PS0*I  l-TA2TO)*£XP<-TA2TO)*CD*PO0«(l-':A2TU>*»2*EXPt-2*TA2TO> 

11140  RETURN 

I2000C 

120 1 OC  CALCULATE  ’.MO 
12030  300  G0T0I3O5.  3101.LBC 
12040  305  TT0*T1NE/T0 
'2050  IFIT1HE.GT.TOG0T0  320 
12060  P*FC*ITC-T1ME)*«PR-PC> /TC 
2070  RETURN 

1.080  310  TTO*  (TINE*" TA2>  /TO 
12090  IF<TIME.GT.TA)G0T0  320 
12100  P«?A*TlHE/TA 
12110  RETURN 

12120  320  IFITTO.GE.  1.OHJ0T0  330 

12130  P«PSe*<l-TTO>*EXPI-TTO>»CD«PDP*tl-TTO)**2*EXPt-2*TTO) 

12150  RETUIM 
12160  330  P-0 
•.2170  RETURN 
I3000C 

13010C  PRINT  L0AO  OATA 

13020  4 IFCKlNC.EO.O)G0T0  400 

13030  PRINT  640.L0TTPE 

13040  G0T0  410 

13050  400  PRINT  645.LDTTPE 

13060  410  CONTINUE 

13070  415  G0T0I 420*  425).  L0C 

13080  420  PRINT  650 

13040  G 0T0  430 

13100  425  PRINT  655 

131 10  430  PRINT  66O.W.P0.C0 

13120  IFIKRAND.NE.O)RETURN 

13130  O0T0I43S.  44O).L0C 

13140  435  PRINT  665.  S»  TC»  PR 

13150  G0T0  445 

13160  440  PRINT  670.  ZLEN.TA.PA 
13170  445  PRINT  67  5.  U.  TO.  CD.  PS0.  PD0 
13180  RETURN 
14000C 

14010  600  F0l*iAT<  /*INPUT  W.P0.C0.  L0C.S*.') 

14020  605  F0WATI /»INPUT  L.CP*.*) 

1406C  630  F0f04ATI/*lNPUT  PS0*.O 

1-070  640  FORMAT < /*L  BAD  CAUSING  INCIPIENT  FAILURE  .5.  AS  FGLLPWSt*. 
14071*  /.  SX.  *L  BAD  TYPE  NUMBER*.  12  > 

14080  645  FORMAT! /^PROPERTIES  0F  LOAD  ACTING  0N  WALL  ARE  AS  F0LLMSM 
14081*  />  5X.  *L0AD  TYPE  NUMBER*.  12) 

14090  650  Fef04ATI8X,*<FR«T  FACE)*) 

14100  655  F0I0IATI8X.  •(  SIDE  FACE)*) 

14110  660  FORMAT!  10X.*W  **.  F8.  I.*  KT  P0  «*.F6.2»*  PSI  CP  «*. 
14111*  F7 • I , * FPS*) 

14120  665  F 0194 ATI  IOX*  *S  ■*.  F6.  1.*  FT  TC  **.F6.3.*  SEC  PR  ■*. 

14121*  F7. 3. • PSI*) 

14130  670  F 8101  AT  I IOX.  *L  **.F6.  1.*  FT  TA  **,F6.3.*  SEC  PA  •*, 

14131*  F7.3.*  PSI*) 

14140  675  F ORMAT  < I OX.  *U  **,F7.1.*  FPS  TO  »*»F6.3.*  SEC  C ** 

14141*  FS.l./.8X.*PS0  **.F7.3>*  PSI  PDL  «*.F7.3.*  PSI*) 

15000  END 

20000  SUBROUTINE  FILLIP3.  I ENTRY) 

20010CI  COMPUTES  AVERAGE  AIR  PRESSURE  IN  R08M  DUE  T0  BLAST  WAVE 


TC  »•»  F6*3.  • SEC 


TA  **,  F6.3.*  SEC 


TO  -•»  F6»  3* • SEC 


86 


PROGRAM  ARCHING  (CONTINUED) 


0)02001  INCIDENT  HEAD-  9*  UP«4  PRINT  WALL. 

20030C 

0)040  ctmm*  t < i oo>.  yu,  yfail. o. au.  area. zmass. zklm.  vhi.  v.  2.  vvt » vv2 

30060  C**M#(  KWALL.KlNC.KRF.KRAND.  1 1.  ICASE.  FU.  VFAIL.  FR.FPH.EH.  FOY 
0)070  C«M»4  F0C,D<4) -LDTYPE.  PEXT.  PR.  PS8.  PD8.  PC,  TC.  TO.  P8.  TIME.  L.  S 
20080  DIMENSION  AA(8.2>.NN<8> 

200*0  LOGICAL  LI.L2.L3 
0)100  38T8(10.  13.  1 I).  1ENTRY 
20110  10  PRINT  700 
201 1 5 RH88-0.07*  T L I ■ • FALSE. 

20120  REA0.N41N.V3 
20125  AT-OS  AFRWT-O*  ASIDE-0 
20130  01  18  I-I.NW1N 
0)140  PRINT  710,1 

201  50  REA0.AAC1#  1).NN<I),AA<1,2) 

20160  AA(I,2)-AA(  I.2> /1000.0 
201*1  AT-AT-AAU,  I > 

20162  H-NN(I)S  O0Te(  12.  1 4.  1 4), N 

20163  12  AFRBCT-AFRUT*  AA( ! . I) 

20  1 64  GOTO  IS 

20165  1 4 ASIDE- AS! OE»AA< I , I ) 

20170  1 8 CMTINUC 

20175  AFRWT-AFR0CT  /ATS  ASIDE*  AS  IDE /AT 

20180  7 00  FOWATC /-INPUT  NWlN  AND  ROM  V CLIME  (CF>-,  * > 

20200  710  FORMAT!  /-INPUT  AREA  (SO  FT). LOCATION  CODE  * DELAY  (MSEC  >• 
20210*  • FOR  WINDOW*.  12.0 

20230  Q-1.4  * 02-1. /O  S 03-1. -G2  t G4-2.  /G3  * GS-GO. 

202  40  G6-2.-0/G5  7 G7-(G-1.)/G5 
20250  PP2- .1*12 

20260  C-S0ST:0-PO-32.-|44.  /RHOO) 

20270  TAU-2.*(V3— (l./3.))/C 
20280  N STEP- 4 
202*0  OT-TAU/NSTEP 
20300  RETURN 

203  IOC 

20320  1 3 P3*-P0 
20330  TT-O.t  TO-O. 

20340  KH83  8-KH88 

20350  L2-. FALSE.  5 L3-. FALSE. 

20340  RETUIM 
2037 OC 

20380  11  1F(LI)G810  52 
20385  1F(L2.A.L3)G812  * 

203*0  52  OCT- ( TIME- T 31-0. 5 
203*  5 ISTIP-2 

20400  53  Ir(DDT.LT.DT)lPTA  51 

20410  SO  DDT-O. 5-ODT 

20415  IST8P-2-IST8P 

20420  GO  T 8 S3 

20430  St  CONTINUE 

30440  01  *«  I-|.  IST2P 

20450  TT-T  8*  I-DDT 

20460  IF(TT.0T.T0)GI  T8  »* 

20470  OM-O.  t WW-O.  S NW-0 

20480  0 8 500  K-I.NWIN 

20490  M-NN I J OLY-AA«K.  2>*0. 000001 

20500  IF(0LY.QC.TT>G8  TB  500 

20510  G 8TP<  15,  14.  I 6).M 

20520  IS  CDF- 1.0 

20530  1F(TT-TC. 20.20,21 

20540  20  PI  1-(TC-TT)*(PR-PC) /TC*PC 

20550  PU-P1  l*P8 

20540  G8  T8  30 

2057  0 1 6 J0F--0.4 

20600  21  R-TT/TO  S RR-l.-R 

20610  PD-PD8*RR*RR-EXP(-2.-R) 

20620  PS-PSOvRR-EXPt*  R) 

20630  PI t-PS*COF«PO 
20440  PII-Ptt-PB 

20450  30  RH8I-RH88*(  (PI  1 /P81--G2) 

206*0  IF(P1 1 - P38)  36.  36,  37 
20*7  0 3 6 JSIGN*- 1 
20680  L2- . TRUE. 

207  7 0 3 03  P2-PI  1 


SBBU&teai  tiUtiy.  o-ues-sRO**  wot*  < at* 
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20780  RHK«(  <P2/P3O>4*G2)*RH030 
207  90  X»P30/RHO30 
20800  GO  T 3 36 
20810  37  JSlGN*»l 
20820  3 0 6 P2«!V2oPl  1 
20830  RH02a(  (P2/P)  I >4*G2)*RH01 
20840  X«PI1/RH0I 

20850  33  U22»r,4*(X-P2/RH02>*32.4|44. 

20860  1F(U2C>40.39,  39 
2087  0 40  PRINT.  *U22  NEGATI VE*»  U22 
20880  ST0P 

2089  0 39  U2>S3RT(U22»*JS1GN 
20900  DDM>U2*RH02*AA(K,  I )*DDT 
20910  0M*DN»0DM 
20920  WW*WW»Pi  t*00M/(G.4RH0l  > 

20930  500  CWT1NUE 
20940  P30«P30*(G- 1.  >»UU/V3 
209  50  RH63  0*RH030»M/V3 
209  6 0 99  CtNttNUE 
20970  T0«TT 
2C980  P3»P3B-P0 
209  32  IF(T1NE.GE.TC)L3*.TRUE. 

2098  3 RETUW9 

20984  9 R»  TINE /TO  5 RR«1.0-R 

20985  P0*PD»*RR*RR*EXP(-2.06R) 

2096  6 PS«PS0*RR*EXP<-R) 

20987  P3«PS»PD*(AFR«T-0.4*AS1DE> 

20990  999  RETURN 
21020  ENO 

30000  SUBROUTINE  RESIST  (IENTRY) 

300 IOC 

30020C  THIS  SUBROUTINE  INPUTS  THE  REQUIRED  OATA  AND  COMPUTES  VARIOUS 
30030C  QUANTITIES  USED  IN  THE  ANALYSIS  OF  MALLS  WITH  ONE-WAY  ARCHING 
X040C  <SUPr«AT  CASE  9)  OR  TWO-WAY  ARCHING  (SUPPORT  CASE  I0> 

300  50C 

30060  CMMON  Y(IOO).Y').  YFAIL.  Q.  QU.  AREA,  ZNASS.  ZKLN,  VHI.  VH2.VVI.VV2 

X080  C(HW  KWALL.KINC.Kr.F.KRAND.S.ICASE.  FU.VFAIL.rR,  FPN.EN.FDY 

30090  FOC.O(4J.LOTYPE.PEXT.PF.PS0.PDO.PC.TC.TO.PO.TIME.L.S 

X0V5  CWMON  /RAND/  TINEC.  IWALL 

30II0C 

XI  20  GOTK  1.99,2).  IENTRY 

XI25C 

XI30C  INPUT  WALL  OATA 
X!  40  I PRlN'i  60 

XI  30  READ.  EL  V.  ZLH,  TW.  TFLG.  EN.  FPM,  ICASE.  ZL  VW,  ZLHW,  GANNA 


XI 40  I PRlN'i  60 

XI  30  READ.  ZL  V.  ZLH,  TW.  TFLG.  EN,  FPM,  ICASE 

X160C 

X17CC  DETERMINE  VALUES  of  various  CONSTANTS 
X17S  IWALL*2 

XI 80  ZL2*ZLV/2.0 

X190  AWALf«ZLV*ZLH 

C0200  AWlNaZL VW4ZLHW 

X2I0  AREA*  AH  ALL  - AW  IN 

X220  ZMASS*GAMHA6AREA*TW/(386.07*t728.0) 

X230  RATIO-ZLV/ZLH 


X240  l F (ICASE,  EQ,9)RATI  0*0 

X250  BETA*O.56(SORT(3.O*RATt0**2*RATI34*4)  RATI0**2) 

X260  ZKLN*  (?,0-2,0*BETA)  /(  3.  0-  2.  0»8ETA) 

X270  VVI.8ETA/6.0 

X280  VV2»BETA/3.0 

X290  VH2»(3. 0-4. 0»BETA>»»2/<  l2.0»(2.0-3. 0»BETA>> 

X300  VHl»(1.0-BETA>  /2.0-VH2 

X3I0  ELD*  SORT  < ZL2*ZL2*  TW4TW) 

X320  EP"4(ZLD-ZL2)/ZLD 

X340  C2-2.0- 4. 04BETA 

X330  C3*0 

X360  I F(  RATIO.  Ett.O)G8T0  9 

X370  C3«  4.  0*BETA.RATI  044  2 /BETA 

X360  9 CWTINUE 

X390  C4*I2.0/(ZLV*ZLV6(3.0-2.06BETA>> 

X400  YFAIL-TW 

X4I0C 

X420C  DETERMINE  MODIFICATION  FACTOR  FOR  WALL  WITH  WINDOWS 
X430C 

X440  QHULT»  1 .0 
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»450  IFYAWlN.NE.OJCALL  WINOOW  < OMUL'l.  ZL V. ZLH.  ZL  VW.  ZLHW. AWIN. 

30440*  AWALL.  RATI  0.  I CASE) 

3047  OC 

X4B0C  OUTPUT  WALL  PROPERTIES 

304*0  PRINT  62.  ICASE.  ZLV.  ZLH.  RATIO.  TW»  EM,  FPM,  GAMMA,  TFLG.  ZLVW, 

30500*  ZLHW.QNULT 

XSIO  RETURN 

X520C 

30530  2 YU*TW*FPM/'EM*EPSM> 

30540  TFLG2*2.0*TFLG 

30550  IFtT«LG.NE.01G0T0  1 

30S40C 

30  570C  5 OLIO  MASONRY  WALL 

30500  5 ZNU*0.2S*FPN*Y 'W- YU>**2 

30590  Cl*0.  5*ZMU*YU*FPM*Y  TW-YU>**3/I2.0 

30400  GOTO  4 

30*1  OC 

X420C  HOLLOW  HAS  WRY  INI  t WALL 

30430  3 Y2«TW*2.0*TFLG 

30440  1FYYU.LT.Y27GOTO  4 

3D450C  YU-Y2  --  TREAT  WALL  AS  SOLID  WALL 

30*40  TFLS2«0S  GOTO  5 

30470  » PFLG*rpM«TFLG 

30400  TWF*TW-TFLG 

30490  ZNU*PFLG*YTWF-YU> 

30700  Zm2*PFLG*TFLG 

30710  C6*O.S*YZMU*YO*PFLG*YTW  -YU>**2> 

30720  C7«C6*FPH*TFLG**3/6.0 

307  3 0 4 8I>8.0*2MU/YZLV*ZLV> 

307  40  RETURN 

307  50C 

307*0  60  F0RNAT1 //*INPUT  L V.LH.  TW.  TFLG. EM.  FPM.  (CASE. LWW.LHW.  GAMMA  • > 

307  7 0 62  F0R4ATI //9PR0PERTIES  OF  IWREINFORCED  HASWRY  WALL  CARC-ING7 

3077  5*  • --  SUPPORT  TYPE  NO.*.  13. 

30700*  /.  6X.  *LV  •*.  F*.  I,  • INCHES*.  6X.  *LH  **»F6.t. 

30790*  • INCHES  RATIO  • *»  F6.  3.  /6X»  *TW  **.F5.I.*  INCHES*. 

XOOO*  7 X.  *EM  **.  F 1 0 ' I . • PSI  F'M  •*.F8.2.«  PSI*.  /.  3X, 

X810*  *CAF.MA  »*.  F6.  I.  • PCF*,7X»*TFLG  **.F6.3.*  INCHES*./. 

X020*  5X.*LVW  •*»  F6.  I.*  INCHES*.  5X.  *LHW  **.F6.  !.*  INCHES*. 

X030*  SX, *8MULT  •*.  F6.3) 

X035C 

X040C  DETEWINL  THE  RES?STYW1CE  FOR  THE  WALL  AT  A DEFLECTI W OF  YCl> 

XB40  99  IF(Y(1).GT.V|I>GOTO  100 

X070C 

XSOOC  DEFLECTI  W OF  WALL  LESS  THAN  YU 

X090  ZMC* YY  I XZMU/YU 

XOOO  ZMAVG*0.  5*  ZMC 

30*10  SOTO  130 

X920C 

X930C  DEFLECTI  W OF  WALL  GREATER  THAN  YU 
X940  100  IF(TFLG2.NE.0)G0T0  110 

X950  ZNC*0.2S*FPN*YTW-YYI>)**2 

X960  ZHAV8*YCI-FPH«YTW-YYin**3/12.0>  /YYl> 

X970  GOTO  130 

X900C 

X990C  H8LL0W  MAS  WRY  194  IT  WALL  — DEFLECTION  LESS  THAN  Y2 
'1000  110  IFYYYl>.GT.Y2)G0I  0 120 

JI010  ZMC*PFLG*ITWF-Y<I)) 

31020  ZMAVA3*  YC&*0.  5*PFLG*YTWF-YYl>)**2)  /Y(I> 

31030  GOTO  130 

31040C 

31050C  HSLLOW  MASWRT  UNIT  WALL  --  DEFLECTION  GREATER  THAN  Y2 

31060  120  ZMC* 0.25* FPM* (TW-YY 1 1 )**2 

31070  ZMAIAI*  YC7  - YTW- YY  I ))**2/12.0)  /Yt  I> 

31000  GOTO  130 

3I090C 

31I00C  CWPUTE  TOTAL  RESISTANCE  OF  WALL 
31110  130  S*C4»(C2*ZMC*C3*ZMAV6)*0MULT 

31120C  IF  DEFLECTI  W IS  GREATER  TH>‘-'<  WALL  THICKNESS.  RESISTANCE  • 0 
31130  IFYYYl>.GT.TW>e*lE-IO 

31140  RETURN 

3!  1 SO  END 

*0000  a COROUTINE  WlNDOVYOMULT.  ZL  V.  SLH.  ZL  VV»  ZLHW.  AWIN.  AWALL.  R.  I CASE) 

*00  IOC 
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60020CS  THIS  SUBROUTINE  DETER’’  JES  THE  STRUCTURAL 

60030C*  MODIFICATI  «N  FACTOR  FOR  WALLS  WITH  WINDOWS 

<0035  IFCICASE.GT.4.AND.  ICASE.NE.  IO5G0T0  320 

<0040  RWWS*ZLVW/ZL  V 

<0050  RWWL*ZlKW/ZLH 

<0060  RAREA* AWIN /AWALL 

<0070  IF(R.LE.  1.5>G0T0  300 

<0080  IF(RWWS.GT.O.7)G0T0  300 

<0090  IF(RWWL.LT.O.  S)G0T0  300 

<0!00  1F(RWWS.EQ.RWWL)G0T0  300 

<0I10C 

601 20C t CASE  WHERE  LV/LH  >3  1.5,  LVW/LV  <«  0.7,  AND  LHWA.H  „ O.S 
60130CI  (BUT  LVW/LV  NOT  EQUAL  T0  LHW/LH) 

<0140  0MULTB-5.85461-I2.6<44*RAREA*4.39662*RWWS*0.  84843* RWWL 
<0 1 50*  *0.  223*  R-  1 . 07  2<9*  < ZL  VW  /ZLHW  > **0.  9*  6.  599  4g*E  XP(  RAREA  ) 

<01  <0  G0T0  3IS 
60170C 

<01800  CASE  WHERE  0NE  eR  MORE  OF  ABOVE  CONDITIONS  IS  NOT  MET 

<0190  300  QMULToO.  <2022*2.  2341  S*RAREA**  < RWWL**4)-0.7946I*RWWL**2 

<0200*  -2.  27  <63* RWWL* 0.  62522* RWWL  /RAREA**0. 3 

<0210*  *2.  63043*EXP(RARF.A)-0.  09268*RWWS 

<0220  315  CONTINUE 

<0230  RETURN 

60240C 

602  50C  WE- WAY  ACTION  WALLS 

60260  320  QMULT* (AWALL-ZLV*ZLHW>  /(AWALI.-AV  N) 

6027  0 RETURN 
<0280  END 

70000  SUBROUTINE  RANDOM  ( I ENTRY) 

7001 OC  THIS  SUBROUTINE  INPUTS  MEAN  AND  STANDARD  DEVIATIONS  FOR  RANDOM 
70020C  VARIABLES*  GENERATES  RANDOM  VALUES*  AND  CONTROLS  REQUIRED 
7Q030C  NUMBER  OF  CASES  TO  BE  RUN*  AND  OUTPUTS  FINAL  RESULTS  AND  SUMMARY 
70040C 

70050  CMMW  Y(100).YU,  YFAIL,  8.  «U, AREA,  ZMASS.  ZKLM,  VH1,  VH2.  VV1,  VV2 

70060  CtMMW  KWALL,KINC»KRF,KRAND,  1,  ICASE,  FU»  VFAIL,  FR,  FPM.EM,  FDY 

70070  COMMW  FDC.  D<  4).LDTYPE,  PEXT.  PF,  PS(V  PDO,  PC,  TC,  TO,  PO.  T’ME.L.  S 

70080  CWMON  /RANO/  TIMEC.  I WALL 

70090  DIMENSION  CHI25C7  ),  CH1975C7  >,  T!>l  ST(?  > 

70100C 

701  IOC  VALUES  FOR  97. 5*  (F*  19,  24,  29,  34,  39,  44,  49 > 

70120  DATA  CHI25/.  4688,  . 51 67,  .5533,  .5825.  . 5065,  . 62  67,  . 6440  / 

70130  DATA  CH197  5/1.729S,  1.6402,  1 .57  66,  I .5284.  S .4903.  1 .4591,  1 . 4331  / 

70140  DATA  TDI  ST  /2.  0°3.  2.064,  2.045,  2.  032,  2.  G22,  2. 016,  2. 010/ 

70150C 

70160  G0T0(5.  50.70),  I ENTRY 

70170  5 XDUNMY«W0RM!(-1. 0.0.0,  1.0) 

70160C  INITIALIZE  RANDW  NUMBER  GENERATOR 
70190  PRINT,  /»*INPUT  NRAND*. 

70200  REAO.NRAND 

70210  DO  47  l«  I. NRAND 

70220  XDUMNYaXNORMKO. 0,0.0.  1.0) 

70230  47  CONTINUE 

70240  INOEXaOS  SPSWOS  SSPSCWO 

70250  ICHECK*20 

70260C 

7027 OC  INPUT  MEAN  AND  STANDARD  DEVIATION  FOR  RAND  W VARIABLES 

70280  PRINT  87 

70290  READ.  SMEAN,  SSD 

70300  G0T8(  10.20).  I WALL 

7031  OC  WREINF8RCED  WALLS  WITHOUT  ARCHING 

70320  10  PRINT  84 

70330  READ,  FRMEAN, FRSO 

70340  PRINT  94 

70350  RETURN 

70360C  WREINF8RCE0  WALLS  WITH  ARCHING 

70370  20  PRINT  85 

T0380  READ.  FPNMEAN.  FPMSD 

70390  PRINT  95 

70400  RETURN 

70460C 

7047 OC  GENERATE  RAND W VALUES 

70480  SO  GCT8(S2,  54),  I WALL 

70490  52  FR*)W8RM1  (0.0,  FWEAN,  FRSD) 

70500  !F(FR.LE.0)G0T8  52 
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70510 

GOTO  58 

70S20 

54 

FPH-WNORMI  <0.0*  FPNMEAN,  FPHSD) 

70530 

IF(FPK.LE.O)60TO  $4 

70S40 

55 

ALPHA* XNORM  1(0.0*  I. 0*0.3) 

70550 

I F(  ALPiIA.LT. 0.  4.  PR.  ALPHA.  GT.  t.  6>GPT0  55 

70555 

EM* 1000.0* ALPHA* FPN 

70505 

SO 

IF<SMEAN.EB.O)GBTO  65 

70590 

60 

S*XN0RMI  <9.  0.  SMEAN*  SSD) 

70600 

I F(S.LE.O)GOTO  60 

70610 

65 

INDEXaiNOEX* 1 

73620 

RETURN 

7063 OC  SUM  VALUES  OF  PSP  AND  PS0»*2  PM  USE  IN  STATISTICAL  ANALYSIS 
70640  70  SPSO*SPSO»PCO 

70650  SSPSO*SSPSO*PSO*PSO 

7066 OC 

7067  OC  OUTPUT  FINAL  RESULTS 
70600  GOTO(72*7  4).  I WALL 

70690  72  PRINT  40*  FR*  S*  PSO*  TIMEC 
70700  GOTO  80 

70710  74  PRINT  41*  FPH.  EM*  S<  PSO»  7 (NEC 

70720  0 OTO  80 

70740  80  1F<1NDEX<LT<  1CHECK) RETURN 

707 50C 

707 60C  DETERMINE  MEAN*  STANDARD  DEVIATION*  AND  STANDARD  ERROR  FOR  PSP 
70770  ZNOalNOEX 

70780  ZHEAN-SPSO/ZNO 

70790  SD>50RT<<SSPS»*ZN0*ZMEAN*ZMEAN:-  /ZN8) 

70800  STOERR«SD/(SaRT(ZNO-m 

70BI0C  CHECK  IF  MAXIMUM  OF  SO  PSO  SAMPLES  OBTAINED 

70820  IFdriDEX.Ea.SOIOOTO  62 

70830C  CHECK  IF  9SS  CONFIDDNCC  INTERVAL  FOR  MEAN  PSP  VALUE  IS 
70840  IF(ST0ERR»T3lST<<IN0EX-tS)  /S)  /ZNEAN.GT.O.  SOG6T8  61 

708S0C 

70S60C  CONFIDENCE  INTERVAL  IS  WITHIN  10*  --  DETERMINE  UPPER  LIMIT  OF 
70S70C  45*  CONFIDENCE  INTERVAL  FOR  STANDARD  DEVIATION 
70880C  PROBABILITY  VALUE  AND  ITS  9St  CONFIDENCE  INTERVAL  UPPER  LIMIT 
70890  62  SDU«SD/(SaRT<CMI25<  (INDEX- 155/5))) 

70900C  CHECK  IF  MAXIMIM  OF  SO  PSO  SAMPLES  OBTAINED 
70910  IF(lHCCX*Ea.S0)G8T8  S3 

70920C  CHECK  IF  J*PEH  VALUE  8F  45*  CONFIDENCE  INTERVAL  FOR  STANDARD 
T0930C  DEVI  ATI  BN  IS  WITHIN  0.  IOLHEAN  8F  THE  STANDARD  DEVI  ATI  ON 
70440  IF<  ( (SOU*  SD)  /ZMEANl.GT.O.  I0JG8T8  61 

T09S0C 

70960C  45*  CONFIDENCE  INTERVAL  IS  WITHIN  10*  FOR  BOTH  MEAN  AND  40* 

7047 OC  PROBABILITY  VALUE  — THEREFORE  SUFFICIENT  SAMPLES  OBTAINED 
70980C  DETERMINE  ?5*  CKFIDENCE  INTERVALS  FOR  MEAN.  STANDARD  DEVI  ATI  •< 
70990. 

7IOOOC  AND  10*  AND  90S  PROBABILITY  VALUES 

71010  33  ZNEANL»ZMEAN-STDERR*TDI  ST<  < IMOEX-  15)  /3) 

71020  ZHFANU*ZHEAN* 5T0£RH*70I  ST<  < INDEX-  1 5)  /5> 

71030  S0L*SD/(S8RT<CH14?S< < INDEX-  1 57  /S>>) 

71040  PIO*ZMEAN- 1 • 202*  SO 

71050  PtOL*ZMEAN-t.2B2*S9U 

71060  P|0U*ZNEAN-t.282*SDL 

71070  P90*ZMEAN«1. 282*50 

TIOOO  P40L»ZMEAN*  1.282*  SDL 

71090  P90*ZNEAN*I.  282*50 

71100  P40U*ZNEAN*  I • 2024SDU 

71110  P90U*ZMEAN*I«282*SDU 

7II20C 

71I30C  OUTPUT  STATISTICAL  PARAMETERS  OF  IMCIPIEMT  COLLAPSE  PRESSURt 
71 1 40  PRINT  100*  ZMEAN.  ZMEANL*  ZNEANU*  SD*  SDL*  SOU*  PI  0*  FIOL*  PIOU* 

71 *50*  P40.P90L.P40U 

71160  PRINT  I OS*  INDEX*  STDERR 

71170  GOTO  444 

TIIOOC 

71I90C  45*  CONFIDENCE  INTERVAL  IS  MOT  WITHIN  10*  FOR  BOTH  MEAN  AND  40 
710000 

7ICI0C  VALUES  — THEREFORE  OBTAIN  5 ADDITIONAL  SAMPLES 
712*0  61  I CHECK* I CHECK* 5 

71*30  RETUWN 

71C40C 

71*50  *4  FOf*NAT< /*INPUT  MEAN  VND  STANDARD  DEVIATI  •!  FOR  PR**  * > 

71 260  S3  FOIONATC  PtlNPUT  MEAN  AND  STANDARD  DEVIATION  FOR  F'M*.T> 
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71280  87  FORMAT!  /PlNPUT  MEAN  AND  STANDARD  DEVIATION  FOR  3*.»> 

71290  90  FORMAT! F9. 2.  FI  1 • 2#  FI  0*  2#  FI  4.  3* 

71300  91  F8RMAKF9.  1.  FIS.  I.  F12.2,  F10.2.  FJ4.3* 

71320  94  FORMAT! ///»SX.*FR*.  1 OX.  *S*.  8X.*PS0*»  6X.*C0LLAPSE  TIME** 

71330  95  F0»1AT!///.SX.*FPM«,llX.*EH*»l2X,*S«.8X»*PSe*.6X» 

71340*  •CBLLAPSE  TIME** 

71360  100  FORMAT ! ///♦  itX.  *STATISTICAL  PROPERTIES  OF  INCIPIENT  PSO*. 

71370*  //.  39  X.  *9  51  CONFIDENCE  LIMITS*.  /.7X»*ITEM*.  IBX. 

71380*  * VALUE  i.eWER  UP»*R».  //,  * MFAN*.  F29.2. 

71390*  2F12.  2.  //.  • STANDARD  DEVI  ATI  JN*»  FI  S.2.  2F12.  2.  //. 

71400*  • 101  PROBABILITY  VALUE*.  3.12.2.  //. 

71410*  • 90X  PROBABILITY  VALUE*.  3.12.2) 

71420  105  FORMAT!  //.  5X»*NIMBER  OF  OBSERVATIONS  **.I3.  /.  5X. 

71430*  *STANDARD  ERROR  *«. F5.2* 

7I440C 

71450  999  STOP*  END 

71460  FlMCTim  XNORMHX.A.B* 

71470  IF! X* 10. 20. 20 
71480  10  X0*RANF!-1.0> 

71490  20  X1*RANF!0.0) 

71500  X2«RANF!0.0) 

7 1 SID  Y*  SORT  !*2«0*AL0G!X1))*!C0S!  6.28318  4*  X2>* 

'*1520  XN0RM1*A*Y*B 
71530  RETURN 
71540  END 
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I0040C  2.  TRINGULAR  LOAD 

I0050C  3.  STEP  PULSE 

I0U60C  4c  URS  SHOCK  TUNNEL  LOAD 

10070C  S.  ARBITRARY  LOAO  SHAPE 

10120  DIMENSION  TT(20*.PP!20> 

I 01  SO  GOTO!  1.2.  3.  4*.  I ENTRY 

10180  I GOTOIIOO.IIO.IIO.  120.  I30)*LDTYPE 

10290  liO  PRINT  610 

10300  READ.TR.  TO 

10310  GOTO  IBS 

10320  120  PRINT  615 

10330  READ.TR. Tl. TO 

10340  1 25  IFtKlNC.CO*  1 1RETURN 

10350  PRINT  630 

10360  REAO.PSO 

10370  RETURN 

10380  130  PRINT  620 

1 0390  READ.NP8INT»<TTIJ*.PP!J*.Js|.NP*INT> 
10400  FACTOR*  1*0 
10410  IF!KINC.Eg.0*G0T0  ISO 
10420  PMAX*PP!  1 > 

10430  00  1 40  J12.NP0INT 

10440  140  IFIPP! J*.GT«PMAX*PNAX*PP!J> 

10450  ISO  PX«PP!2*-PP!I> 

10460  TX*T?<B»-TT<I» 

10465  JJ*t 
10470  RETURN 

1 1020  2 GOTO ! 200 » 2 30. 2 30. 2 30. 2 40  > . LOTY PE 

I 1200  230  PSO*PR 

1 1210  RETURN 

11220  240  FACTOR«PR/PNAX 

1 1225  GOTO  ISO 

I 1230  RETURN 

I 8020  3 GOTO!  300.  340.  360.  370.  380*. LOTYPE 
18180  340  IF!TIHE»TR>348. 345.  345 
18190  342  P«PS0*T1MC/TR 
12200  RETURN 

12210  345  1FCTIME*T0>347,  350.350 
12220  347  P*PS0*!T0-TIME*/!T0-TR* 
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12230  RETURN 
12240  3 SO  P»0 
12250  RETURN 

12260  360  IF*TINE-TR>342»362»362 
12270  362  I F< TINE- TO  1364#  364#  350 
12280  364  P«PS0 
12290  RETURN 

12300  IFf  TINE*  TR!  342#  372#  372 
12310  372  IF<TINE*TI  >364#  364.371 
12320  374  IF* TINE* TO  376#  376#  350 
12330  376  P«P£0*<TO-T1NE>/<TO-T1 > 

I 2340  RETURN 

12350  380  lF<T!N£.t£.TTtJJ*l>)G0T0  385 

12360  JJ«JJ*I 

12370  PX«PP<JJ* i)-PP*J _•> 

12380  TX«TT«.JJ*1>*TT<JJ) 

12390  G0T0  380 

12400  385  P»FACT8R*<PP<JJ>*<TIN£-TT*JJ>>*PX/TX> 

12410  RETURN 

13060  410  GOTO*  41 5#  450#  450#  460#  4701.LDTYPE 
13190  450  PRINT  680#  TR*  TO#  PS0 
13200  RETURN 

13210  460  PRINT  685#TR#T1#TO#PS0 
13220  RETURN 

13230  470  00  480  J«1.NP01NT 
I 3240  P»FACT0R*PP*  J) 

13250  480  PRINT  690»TT*J)#P 
13260  RETURN 

1 4030  610  FORMAT*/* INPUT  TR.T09»») 

1 4040  615  FORMAT</*INPUT  TR.TI.TO*#t) 

I 4050  620  FORMAT*/* INPUT  NUMBER  BF  LOAD  POINTS  AND  THE  TIME  AND  •> 

1 4051*  4PRESSURE  AT  EACH  PB INT*  > 

1 4150  680  FORMAT*/ 10X.*TR  »9.F6.3.*  SEC  TO  ■ *»F6.3»*  SEC  PS8  »•» 
1 4151*  F7.3.4  PSI91 

I 4160  685  FORMAT*/  lux#  *TR  ■•»F6.3#*  SEC  T1  **#F6.3.*  SEC  TO  «*. 
14161*  F6-3.4  SEC*#/#9X.*PS0  »9#F7-3»*  PSI*> 

14170  690  FORMAT* Fl  5* 3# F 1 2* 21 
1 4180  695  FORMAT*/ 10X.4TINE  PRESSURE*) 
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00  100  PROGRAM  RCHALL  1 U MPUT»  OUTPUT* 

001  OS  CALL  RETRC  7HRCUALL2,  7HRCHALL2! 

OOllOCl  THIS  PORT10M  3F  THE  PROGRAM  IMPUTS  THE  REQUIRED  HALL  AMO  L3AD 

0011  SCI  DATA  AMD  IMITIALIZES  CERTAIM  PARAMETERS 

00120C 

00  ISO  C3MM0M  •<  VALL.K  IMC.LDTYPE.MRF.KRAMD.  TIME.  I » YI 1 00>  » 0<  Oil.  YU»  YFAIL. 
00152*  TL  V.  ?LH.  TV.  P V.  FPC.  FOY  • I CASE.  MO  BAR.  AS(  A>»  APS(  4)  .0(4).  DPI  A).  FOC. 

001  Sv*  EC.  ES»  R»  ALP.  ALP2.  AREf>. ZMASS.  OMULT*  VFA1L. T<LM»  VHI » VH2.  V\M . VV2. 
00156*  W.  P3.C0.L3C.  5.  ’LEM.  CO.  PS3.  PD3.  PR.  PERT.  PC.  TC.  TO.  DELAY. 

001  SB*  (MWIM.RH03.  VO.LI.AAIR.  21.  MM!81.  AFR3MT.  ASIDE.  G»  G2.  G3.  G4.PP2.DT 
001 6SC 

OOlTOCt  READ  TITLE  AMC  C3MTR3L  PARAMETERS 
001  75  PRIMT  67 
00180  READ  68. TITLE 
0018S  PRIMT  8S 

00190  READ.KHALL.KIMC.LDTYPE.RRF.MRAMO 
0019S  DHLAY«0 
00200  VFAIL* I El  0 

0020S  67  F0RMAT!/*IMPUT  TITLE*.*! 

00210  6S  FORMAT! AS9) 

0021  S 8S  FORMAT!/*  I MPUT  < HALL!0*EXT.  1«!MT>»HMC»LDTYPE.<RF»<RAMD*. 
00220*  •( 1*RAMD0M)«! 

0022SC 

00230CI  • DETERMIME  HALL  PROPERTIES  IMOEPEMDEMT  3F  FDC.FDY.  AMD  D 
00235C 

00240  4 D3  S 1*1.4 
00245  AS! I >*0 
002SO  S C3MTIMUE 
00255C 

00260CI  • IMPUT  AMD  ECHO  HALL  AMO  RE1MF3RCEMEMT  PR3PERTI ES  » 

00270  PRIMT  61 S 

00275  READ.  ZLV.  ELM.  T H.  P V.  FPC.  FOY.  I CASE.  ’L  VH»  ’LH  W.M3RAR 

00280  F0C*l.2S*FPC 

00285  EC«S7619.0*S0RT!FPC) 

00290  ES*29E6 

00295  E«IR*EC/1000S  ES!  I P*ES/ 1 000 

00300  R*TLH/’L  V 

00305  ALPM.O/RS  «LP2*ALP«ALP 

00310  IF!ICASE«LE«4!  GOTO  11 

00315  R*0S  ALP*OS  ALP2»0 

00320  11  PRIMT  670 

00325  DO  8 1*1.4 

00330  PRIMT  625.1 

00335  READ.  AS!  1 1 . 0!  I ) . APS!  1 ) • OP!  t ) 

003S0  IF!I.ME.11®T3  3 

003S5  GST3!R.8,8»R.9,7,  71. I CASE 

00360  3 OTT3I9.8.  7,6.9. 9. 9>.  ICASE 

0036S  6 IF!1.E0.3)®T3  9 

00370  GOTO  8 

00375  7 1*1*1 

00380  9 COMTIMUt 

00385  9 C3MTIMUE 

00390C 

00395CI 

00400CI  • OETERMIMr  DEFL^CTHM  AMD  M9MEMT  C3EFFI Cl EMTS  • 

0040  set  • ••*•••••«••«««••••••*.*••«•••••••*•••••*•••«•*•• 

0041  oc 

0041  S AHALL*/.LV*’LM 
00420  AHIM*ZLVH*’LHw 
00425  AREA*AHALL-AHIM 

00430  ?MASS*  150*  0*  ARE  A*  TV/!  396.07*  1 728. 0> 

0043S  OMUL  T*  1.0 

00440  IFtAHIM.ME.OlCALL  HlMOO  V IQMIJLT.ZLV.  ELH.’LVH.’LHU.  AwlM.  AWALL. 
00441*  R. ICASE! 

00445  PRIMT  620.  I CASE.  EL  V.  ’LH,  ALP.  T w.  FPC.  EC<  IP.  FOY.  ESX  IP.  PV. 

00450*  £L  Vtf.  ’LHH.OMUL  T 
0045S  PRIMT  630 
00460  DO  I 10  1*1.4 
0046S  IF!AS!t!.EQ.0>®T3  110 

00467  P*  AS  !!!/!!  2*  0*0!!))  * PP*  APS!  1 >/!  1 2.0*0!  1 ) ) 

00470  PRIMT  640.I.AS!I).P.0!I!.APS!l>.PP.DP!l> 

00475C  CHAMGE  I1MITS  OF  RE1MF0RCEMEMT  FROM  SO.lM./FT  TO  SQ.IM./IM. 
00480  AS!  I >*AS!I  >/ 12*0 
00485  APS!I!*APS!I>/12.0 
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PROGRAM  RCWALL  (CONTINUED) 


00490  110  CONTINUE 

00  49  S 615  PORMAT!/*  INPUT  LV.LH.TW.PV.F'C.FDY.  I CASE.L  VW.LH  W>  N3BAR*  ) 
00500  620  F3RMAT!//*PR3PERTl  £S  3F  REINFORCED  C3NCRETE  WALL  --*. 

00505*  • SUPPORT  TYPE  N3.«.l2./. 

00510*  • LV  **.F6.t.«  IN.  LH  **»F6.I»*  IN.  LV/LH  *•» 

00515*  F5«  2/  « TW»*.F6.|»*  IN.  F »C  **»F7.1.«  PSl*»SX» 

00520*  *£C  *«»  F7. 1 »•  MSI*./.*  FDY  **»F8.l»*  PSt  ES  »«» 

00525*  F8. I. • <S!  PV  «*»F6.l.*  LB/IN.*/ 

00530*  * LVW  *«.F6.I»*  IN.  LH  W s*»F6.1»*  IN*  QMULT  **»F6.3> 

00535  625  FORMAT! «INPUT  AS.O.A'S.AD1  F3R  SECTI3N*.  12.  * > 

00540  630  F0RNAT!//«R£INF0RCEMENT  VALUES*/*  SFCri3N  AS  <P>*» 
00545*  9X.*D*.8X»*A*S  IP M*» 8X. *0**/ /» 8X.  *!  SO*  I N./FT.  )*.  8X» 

00550*  *! IN. ) ISO. IN./FT. >*.8X.*!1N»>*> 

00555  640  FORMAT!  IS.  FI  I.  4.*  ! «.  F6.  4.  • >*.  F9. 3.  Flo.  4. • (*.  F6.4.  * >«#  F*.  3> 
00560  670  FORMAT! 1H  ) 

C056SC 

00570C  INPUT  L3 AD  PARAMETERS 
00571  lF<LPTfP£.£7.  5)  O0T3  25 

00575  100  IFIHRAND.EO.OIGOTO  102 

00576  W*  1 000.0  S P3*14.  7 S C3*  1120.0  S L3C*1 

00577  GOTO  106 

00  578  102  “RINT  600 

00S80  READ.  W.P0.C0.L3C.S 

00585  IFIL0C.E3. 1)  GOTO  105 

00590  PRINT  605 

0059  5 READ.  ELEN.  CO 

00600  105  I F!K  INC*  EO.  I > GOTO  106 

00605  PRINT  610 

00610  READ.PSO 

00615  PR*2.0*PS0*C7.0*Pi*4.0*PS0>/C7.0*P3*PS3) 

00620  600  F0RMAT!/*INPUT  W.PO.  CO.LOC.  S*.  t > 

00625  605  F0RMATI/*INPUT  L.CO*.«> 

00630  610  FORMAT!/* INPUT  PS3*.*> 

0063SC 

00640C  • INPUT  R03N-FILLING  PARAMETERS  « 

00645  106  IFIKRF.EQ.OJGOTO  20 

00650  10  PRINT  700 

00652  RH0O*O.O76  S LI*. FALSE- 

00655  REA0.NWN.V3 

00660  AT*OS  AFR0NT-OS  ASI 0E*0 

00665  00  18  I * 1 • N WI N 

00670  PRINT  710.  I 

00675  REA0.AA!l.I>.NN!t).AA!I.2> 

00680  AA!I.2>*AAU. 21/1000.0 
00685  AT*AT*AA!I,1> 

00690  M*NN!I)S  GOTO!  12.  I 4.  1 4>,M 
00695  12  AFR0NT*AFR3NT*AA!I.l) 

00700  00 TO  18 

00705  14  ASI  DE*A5I  OE*  AA!  1 . 1 ) 

00710  IB  C3NTINUE 

00715  AFRONT*AFR0NT/AT5  ASI  DE* ASI 02/ AT 

00720  700  FORMAT!/* INPUT  NWIN  AND  R33M  VOLUME  ICF>*»*> 

00730  710  FORMAT!/* INPUT  AREA  ISO  FT>»L3CAT10N  CODE  t DELAYIMSEO* 
00735*  • FOR  WINDOW*.  12.  t> 

00740  G*  I • 4 S G2*l./G  S G3»  1 . - G2  S 04*2. /G3  S GS*G*|. 

00750  PP2*. 1912 

0075S  C*SORT! G*P3*32.*I 44./RH30> 

00760  TAU*2.*!V3**<l./3.»)/C 

00770  0T*TA'J/  4.0 

00775C 

00780  20  IFIKWALL.E0.01G3T3  25 
0 0 785  PRINT  86 

0 0 79  0 8 6 F3RMAT!/*INPUT  DELAY  TIME  IMSECI  T3  INITIAL  LOAOING  *.  . 

00795*  *INTERI3R  WALL«»*I 

00800  READ.  DELAY 

00805  DELAY* OEL AY/ 10OO.O 

00810  25  CALL  CHAIN! RCWALL2 1 

00815  99  STOP 

00820  END 

00825  SUBROUTINE  WINDOW  IOMULT.  TLV.  ELH.  EL  V W»  TLH  W.  A Wt  N.  A WALL.  R.  ICASE> 
03830C 

00833CI  THIS  SUBROUTINE  DETERMINES  THE  STRUCTURAL 
008400  MODIFICATION  FACTOR  F3R  WALLS  WITH  WIND3WS 
00842  !F!!CASC*GT«4.AN0.  1 CASE* NE-1OIG0T0  320 
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PROGRAM  RCWALL  (CONTINUED) 


00345  RWWS»ELVW/*.LV 
00350  RW14.*7LHW/ELH 
00355  RAR£A»AWIR/AWALL 
00360  IF<R.LE.1.51G3T3  300 
00365  IFtRWWS.GT.O.  7101T3  300 
00370  lF<RWWL.I.T.0.S>Gi)T3  300 
00375  IF<RWWS.E0.RWW.)G3T3  300 
00330C 

0033SCJ  CASE  tXERE  LV/LH  »»  I • 5*  LVU/LV  <»  0.7.  ARD  LH  U/LH  »»  0.5 
00890CI  ( BUT  LVU/LV  R3T  E1IJAL  TO  LHU/LH1 

00395  IHiLTp-S.3  5461-  12.  6644*RAREA*  4.  39  662*R  WW5*0.34343*  RWVL 
00900*  -0.2?34R-l.0  7269«f»LVW/*LMW)««0.9»  6.  595  42*EXPC RAREA) 

00905  G3T3  315 
009  IOC 

009 1 5Cx  CASE  WHERE  OWE  3R  M3RE  3F  AB3VE  C3RDIT13RS  IS  R3T  RET 

00920  300  OMULT*0.62022-2.23415«RARE4**<RW1L**4>*0.  79461*RW4.**2 

00925*  *2.27663«RWW-*0.  62522»RWt*./RAREA««0.  3 

00930*  *2. 63043*EXP<  RAREA) -0. 09263* RWWS 

00935  315  C3RTIRUE 

00940  RETURR 

00945C 

009S0C  3HE-W4T  ACTI3R  WALLS 

009SS  320  ')MULT*<AKALL-TLV«7LHW>/<AWALL-AHIH> 

00960  RETURR 
00965  ERD 

01000  SEftiERT  RCWALL 2 ( I RP'IT.  1UTPUT) 

01010C  THIS  SEWERT  CALCULATES  THE  RESISTARCE  FURCTI3R  ARD 
01020C  L340IRG  ARO  S3L RES  THE  0VRAH1C  EOUATt  JRS  3F  43TI3R 
0I030C 

01050  C3RR3R  < WALL.X  IRC.LOTYPE.KRF.  <RAWO»  TME»  I»YC  100>.0.  711.  YU.  YFA1L. 
01052*  EL  V*  ELH.TW.  PV.  FPC.  ror.  I CASE.  R33AR.  4)  , APS*  4).  Of  4>  . DPf  4».  FOC. 

01054*  EC.  E$.  R.  ALP.  ALP2.  AREA.  *HASS»  MULT.  VFAIL.  EHLR.  VH1 . VH2.  VV1 . VV2. 
01056*  W.P3.Ca.L3C.S.?LER.C0.PS».P03.PF.PEXT.PC.TC.  TO.  DELAY. 

010S3*  RWIR.RH33.V3.L1.  A4f 3. 2). RR<3>, AFR3RT. A$I OE.  G.  G2.  03,  G4.PP2.DT 
01073  CMR1R  /RARO/  TIHEC 

01030  DMERSUR  Af  30)  . Vf  30)  . Tf  30>  » VV<30>  » VH{*0>.  PEXf  30).  PI  RC  30).  PRt  30) 
01 100C 

01250  IFfHIRC.RE.  1 .RR.LDTYPP.EO*  S1CALL  F3RCEC  I > 

01260  14  IFCHRARD.RE.11G3T3  35 
01270  CALL  F3RCEC  4) 

01230  CALL  RAR03HC1) 

0129  0 3 4 CALL  RARDMf2) 

01300  35  CALL  RESIST* 3) 

01 31 OC 
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PROGRAM  RCHALL  (CONTINUED) 


o 1 640  an  call  n^isrc^i 
OI67O  At  1 1*  T^lET/t  '4AAS**-tL4> 

01660  Ji/(l)s\/V l»T!5^r 
01670  V4f 1 1*VM1«TP9ET 

01  6-tAi; 

116900:  PROCEDURE  FI*  j_L  e.wv-l  |F\tr  THE  I 'I  TER  VAL  6 
0 1 700  1 1*1*1 


01  710  IFf  l.LT.-il  101TJ  I I 


oi 7an  p5i  r*  94, ti  4 * : 

01730  94  F3->44rf/«l  *•»!  I 


01  740 

oi  no  1 1 

0 I 760 

01  770 
01  740 
01  770 
01400 
01410 
0I-:  >0 

cm  jo 

01440 

01460 

01460  3 

01070 

01440  10 

01490 

01900 

01410  2 

01420 

01930 


*4t i rue  *:»*'6.3.»  failure  assumed  ro  xdt  dccu~o 

un  6 

ri  *e*ti  ie»0f3.TA 

TimiMt 
At  | >*4t  1-U 
CALL  F0  4CE<31 
PExtllsPEXT 
l Ft  < WALL  • EO.  1 1G1TJ  10 
I Ft -taF.eo.ni  r.iri  3 
CALL  FILL <p  1 4T*  31 

pi  tt  iL»nr 

TPiCr*A5FA«f  PEXT-PI'ITI 

oi  n p 

tpm*:  r*  ap*:a«p-;x  r 
03  T3  2 

CALL  FtLL(°14T»  3> 
pi'»tn*Pi4T 
tp4et*area»pi 4 r 

P it  1 )*  fPRET/AREA 
00  4 11*1.10 

Yf  1 1 *Yt I - 1 l*OELTA«Vt  1-  t >♦  DELTA*  DEL  TA«fAtl-|l/3.»4tl>/6.  > 


call  PCS!STf2> 

3T*0*A4E'i 


01960  4 AXSWalTPRET-DTl/f ’'I4£S»'<L'11 


01970  A-  O-TAsAX-W- At  1 > 

01940  Af,»«A4FW 

<11946  IFtA4FW.*0.oiPpt  4T.  • 1 94  7*.  THE*  TP4ET*  0T»  r 4AC*.  *<L4. Yf I 1.  At  l*  1 1 

01490  lFtA3S<AOta.rA/tA4Fw*lF.,io>>.LT.0.01  1 03T  1 4 

02000  4 C34THUE 

02010  At  I l*A4Ei- V1ELTA//.0 

02020  Pr<l  4 T R0.Tl4E.»F.Af  Il.ytll 

02030  7 COMTIY'IE 

02040  ft  I 7*Yf I* 1 1 *•<>*?.  T44V<  I-l  >*0ELTA*0ELT»*<  At  1*11/3.*  At  11/6*1 

0205O  Vt  t > * *»C  t — 1 l*OeLFA«f  At  1 l»At  1-  | 11/2.0 

02060  VUt  1 1 = 9V1  •Tp4ET*VV2*0T 

02070  iWf  1 »*vm«TP4ET*VH2«0T 

02090C 

02100CJ  C4EC4  F3R  4AY|4*J4  DEFUF.CTia*  .14  FAILURE  JF  WLL 

021  IOC:  IF  '!A<r4'M  OrPLFCTl  34  REACHED.  WALL  010  43T  FAIL 

02120  IFf  Yf  1 l.LE.yt  l-l  >.AV  •MtH.LE.P4f  1-I1M53TJ  6 

02130  IFtrt  I1.LT*0)(71T3  6 

021  AO  IFf  TI4E- DELAY.  r.F.  0.0101  DEL  TA=0.  002 

021  *0  IFf  T14E- DEL  Ay.  r-e.  0.0201  DEL  TA*o.  <107 

021  7J  1 Ft  TME-0EL4Y • 0E.0.  1 001  DELTA* 0- 01  0 

02140  I Ft  THE*  DELAY  • GE.  0*  S001  DELTA* O.  0 70 

02190C  IF  FAILURE  0EFLECT139  REACHED.  WALL  FAILED 

02200  IFfyf  tl.GE.yFAILlGJTl  7 

02210  C.3T1  I 


02220C 

02230C:  14TER74L  4AL914G  PROCEDURE  T*  DETE“419P  LOA'l  CAMSIRG  IwCtPlEYt 

02240C:  .riLL4“£E  F39  Ca*ES  VHFor  OESI  RED 

•12270C:  4 ALL  010  111  FAIL  - SrT  “FAIR  TI  =c 

02260  6 CIRTtYiJE 

‘<2240  lct4l4C.EO*01C,in  14 

OV290  36  oF4M*pp 


02300  IFfPF4AX.RT.01O3ri  16 
02310  HF-2.o«PF 


02320 
02330C: 
02340  7 
02350 
02370 
02340  37 
02390C1 
02400  1 7 


03H  20 

WALL  FAILED  - SET  «F4Ait  TO  PF 
C34T1 4'JE 
rMEC.TIMe 

1 Ft<  I 4C.  €0.0 1 OIIT-1  14 
PF4AX*PF 

C4EC4  n SEE  IF  LOAD  RA4GE  IS  KITHI4  OESIRED  ACCURACY 
I Ft  f PF4AX-PF41  43/PF4I4.  OT.O.Ot  1 MT3  1 6 
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PROGRAM  RCWALL  (CONTINUED) 


02410  IFtKR4N'J.NE.  1 »G3T7  IB 

02420  CALL  RAN03HC3J 

02430  »T3  34 

02440C 

G.’4S0Ct  OUTPUT  OATA  INCLUDES  THE  BASlHiJM  DEFLECT!  »H  ANO  Tt HE  JF 
C2460CS  3CCURANCE  F3R  A H9N-F4tLtHG  HALL  <J»  THE  TINE  AHO  VEL3CITY 
02470CI  AT  CILLAOJE  no  a FAILING  HALL.  3PTt  3NAL  9UTPUT  IS  THE 
’L.480CI  EH  T!  RE  BEHAVIOR  rtME-HI  ST7=>r  OF  THE  HALL  * 

0 • 490C 

>»/’f00C«  (l'JTPUT  L3A0  OATA 
025S0  IB  CALL  F3RCEf 4J 
J2S20C 

02530C*  OUTPUT  FI  HAL  RESULTS 

02540  IFCrtt  J.LT.rFAlLJPRINT  70.rttJ.TIU 

U2S50  IFtrtlJ.GE.rFAtLJPRlHT  7|.T<!>»V(I> 

OZ560C 

02570CI  CHECH  TO  SEE  !F  EHTI  BE  TIKE-HISTORY  OF  WALL  IS  DESIRED 
02580  PRIHT  72 
025*0  OEAD.M 

02600  tFfM.EO.OJ  00 TO  25 

02620  1 FCH  HALL  • EO*  I JOB  TO  32 

02630  tFtHRF.EO.OIOnO  26 

02640  PRIHT  ?5»CTt  IJ.PEXt  JJ.PIHC  l>.PNt  IJ.rt  IJ.VVt  JJ.VHC  JJ.J>I»1J 
02650  GOTO  25 

02660  26  PRIHT  76.  CTC  JJ.PEXt  JJ.At  J > . VC  IJ.rt  JJ.VVt  IJ»  VHt  I ) • 1*1.  I J 
02670  «To  25 


026R0  32  PRIHT  76.  tVtJJ.PIHt  I J . At  MvVtJJ.Yt  JJ.VVt  IJ.VHt  I J . Ja  1 » 1 J 
026*0  25  PRIHT  77 
02  700  STOP 
0271 OC 

02740  70  F3RHATC/»UALL  010  HOT  FAIL  - HAS.  DEFLECTI3H  3F*F6.2 
02750*  • IH.  REACHED  AT*F7.3,a  SEC*J 

02760  71  F3RHATt/*HALL  FAILED  AT*.F7.3.a  SEC  t Ft  HAL  VEL3CI  . S’  *• 

02770*  F7.2*  IH./SSCJ«J 

027190  72  F3RHAT</*1S  TIKE  HIST3RT  3*  WALL  DESIRED  CTES«I»  H3«0J*.tJ 
02B00  75  FBRKAT<15X*PRESSURE  3H  HALL*/*  TIHE  EXTERI3R  • 

02810*  •IHTERI3R  HET  01 SPLACEHEHT  VV  \«*/ 

02820*  f F6.  3.  3F|  0.  3*  FI  2.  4*  FI  I . 0*  FR.OJ  J 

02830  76  FBRHATt/*  TIKE  PRESSURE  ACCEL ERATI 3H  VEL SCI TY  • 

02840*  *01  SPLACEHEHT  VV  VH*/ 

02850*  t F4.3.FH.3.FI2.  I.  FI 2. 2.  F| 2.  4. F1 1 .0.  FB.OJ  J 

02860  77  FSRHATt///.  7t* — *71 

02870  80  F3RHATI /•  ACCEL  ERATI  3 H H3  T C3NVERGING  AT  TIME  »**F6.3. 

02880*  • SEC  CPF  ■«.F7.3.«  PSU*'*  MU  SET  EOUAL  T#*. 

028*0*  F8*l>*  tAVG  3F  LAST  2 l TERATI 3HS  J*/*  YCU  ■*. 

02*00*  FR.  4. • IH.*J 

02*60  »**  STJP 
02*  70  END 

IOOCO  SUBROUTINE  F3RCE<  I EH  TRY  J 

I0010C  THIS  SUBROUTINE  IHPUTS  THE  L3AD  PARA8ETERS  AHO  DETERMINF* 
I0020C  THE  L3A0  AT  A GIVEN  TlHE  F3R  THE  F»,L3WlHC  L«*D  Tr*ES» 

1CO30C  I-  lOEALI'.ED  BLAST  L3A0  f FR3HT  3R  SIDE  FACCJ 
10050  C3HH3H  XHALL.t  INC.  LOTYPE.KRF.K  RQHD.  TIKE.  I * YU  00. » C*  0U»  YU.  YPA'L* 
I00S2<-  EL  V. ELK.  TH.  PV.  FPC.  FDY.  I CASE.  N38AR.  ASt  *J  » APSt  At*  DC  47,  OPt  4)  , FOC. 
1 005/  EC.  ES,  R*  ALP*  ALP2.  AREA,  EHASS*  OMUL  T.  VFAIL*  *0,1.  VH1 , VM2.  v VI . VV2. 

I00S6*  H.P3.CB.L3C.S.ELEH.C0.PW.P03.PR.P.PC.TC,  fO.DO.AY. 

I0G5R*  HWIH.RHA8.  V3.LI.  AAtB.2J.HHtB  J.  AFR3H7.  ASI  05*  G.  G2,  S3.  G4.PP2.  OT 

10060  DIMCNSI3M  TT<  IOJ.P»t  10 J 

I0080C 

•0130  I FCLOTYPE. SO. 5J 0BT3  000 
I0I40C 

10150  OATPC  25  5.200.300.  4 J,  I ENTRY 
1 1 OOOC 

1IOIOC  CALCULATE  teAO  PROPERTIES  fRR  GIVEN  PEAK  PRESSURE 
1 1030  200  QBT2C205,  210 J «L8C 

11040  205  PS8*t PR*l 4. 0*PJ*S9RTt  1*6. 0*P3*P3* I *6«0*P8*PR*PR*PR> ) / 1 4.0 
1 1050  OB  TP  SIS 
11060  210  PS*“PR 

11070  215  P0B*2.5*PSR*PS*/C7.0*PV»PS3J 
HOBO  U*C3*S0RTt I .0* 1 6»0*PS9  J/ f 7.0*P3>  J 
110*0  TO* H»*0. 3333/ 1 2. 23***0.  18B6*PS3J 
IIIOO  08T3t220*225)*L8C 
lino  220  TC*3.0*S-'|J 

1 1 ISO  PC*PS3*tI-TC/TOJ«EXPt-TC/TOJ»f>OB*t  t-TC/T0>**2*«PC*2*Tf/T0> 
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PROGRAM  SCWALL  (CONTINUED) 

I I I VI  CO*  1*0 
I I 1 4*1  ■«-  1 m 
IlhO  v»?*>  74* -*>1/  I 
I I 1 AO  TA5>«  TA /?.0 
it i 70  r^ro* ta?/ r\> 

1 1 1 pa*o*;.j« < i-  TA2fo>«i;xpc-  rAxw i-  rA<*ro>**?>»*  fa  ;ro» 

moo 

I 200 JC 

I 20 1 OC  LALO  l_ATE  LIAO 


1 2U  JU 

300 

mn 

< 104.  3 

tO)#U 

•»c 

i 2040 

3.1*) 

tto* 

Tt  * 

c/r 

•7 

! '3*»1 

IP? 

ri  *•••• 

OT. 

H’) 

r*H» 

1 >0 

1 

»-pr*(  j-c 

- rt 

*•*> 

• 

*»«;»/  T*' 

1 >0  70 

4PT 

:■*  l 

| 90X0 

310 

ft  .* 

£ **! 

<l»4 

1 A>>/ 

ro 

1204  ' 

!«•< 

ri 

:t. 

f A > 

am 

320 

i '*oo  r i <"/  j » 

1 1\  io  4cr«»»s 

i*i*o  wo  i«“f  m.w.  i*o>onri  aio 

\ ,\  7 » 4s ’t*  < * - r?  >*  - rn»»n^  *»*<  i-rn'  ••  »•  **<p'  -;/•  r ro> 

i^i *,0  r *«** 

i , i /.*>  *>  n a - i 

I '!  *•>  =>- 1 .-.I 
I 10G.IC 

I 1-iiuC  JR 1 <r  *.  M-l  >ifA 
I 3")1(\  4 | M < i V'.  • 1.  >1  :'  r 1 410 
,-101''.  am  IT  4411.1.  Jlv»- 
! .1(140  jl  i » 410 
i ioio  4«vi  *;  ,4„i. 
tin*.-!  4io  1 1 4 r t jur 
iioto  4is  otri< 4?o. 4O0>,i. ic 

13040  4?0  4.<14f  ,o0 
1 1040  ojra  430 
I MOO  4,35  HJ|1[  455 
13110  430  PRUT  440,4.01. Cl 

imo  t«-MR<ni).'K.o>Rer'i'»'( 

13110  oifll  414.  440>,1..)C 
1 3140  435  PRMT  445. «:.  rr.P- 
1H5.0  <WT!  445 

1 3140  440  “MIT  4 70,  *l."  1.7-1.  PA 
11170  44S  »R1  IT  475.  I.  70.  r0.  P*’  > , »'»  1 
i mo  p-T  iP'» 

1 3S00C 

I1SI0C  1.440  TTP-:  5 --  .1441  TJARf  L 340  «44pr 
I 15PO  500  OITIC  510.  5P0,  410.  540),  I • ir»r 
1 3410C 

I 1440C  MP‘iT  LIAO  OITA 
I 1550  410  P»l  3 7 440 

i -I44Q  4P40.  ipji  ir. < tti  n.®»<  n.  I* i»  *p;i  i r» 

13470  C4CT1««|.0 

13540  !'(  MIC.PO.OIOITI  514 

1 1540  P4A4=P»< 1 > 

11400  03  415  l*3.7P.li'ir 

13410  415  IP1PPC  ll.0I.P4AOP40<»PPf  II 
13420  414  °X*=P<2 I-PP<I) 

< 3410  1 «s  rT121-TT<  1 1 
1 1440  11*1 
I 144''  0t;T-|O7 


a 

n 


1 

1 1470C  C4LC-».ATP  1«|1  M 1.  1.1  3 
1 1430  5*0  COC  r*4*°R/PMA< 

lion  '•or.i  -.n 
1 1 loo  J.'rilK 
1 3 73  0C 

ii7*or  ro'.cjLir1  '.in 

1 1711  430  irCTMc.l-..  1 f(  I l»  I 1 1 «!  TJ  53) 

11740  II*  MM 
I 3750  P<*PPt  } l»  1 »-pp<  t M 

11740  Ti«7r<  M»n*rrc  iij 

ii745  i«,fT5'.c:!.o>ri<*ic-io 
I 1770  G1TJ  530 

imo  535  p*PAcrj-i*<p»i  »i»*<  ime-tt*  Mi>*PK/rt) 

1 1710  jet  (11 
1 13  IOC 
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PROGRAM  RCHALL  (CONTINUED) 


TC  »*.F6.3<*  SEC 


TA  **.F6.3<*  SEC 


TO  **<F6.3<*  SEC 


I3AIOC  PM  XT  LA  AO  DATA 

13415  640  lF<X!XC.£a.l)PRlXT  640. L OTYPF 
1 3420  m-MXC.EO.O'PRIXl  446.L0rYPE 
13425  PR1XT  690 
13R30  03  645  l*I.X»A!xr 
13440  Pif4CT14*l>»{  I) 

! 3450  646  PRIXT  69-,.TT<l).P 
13460  REru-»X 
I 4000C 

14010  600  F3R44T</*MPIT  W.  P3  - >3.  L3C.  A*.  • > 

14020  606  F3R4AT</*tX=UT  L.CCv  ■*) 

14060  630  F)R44T</«1 XPUT  PSR*.*> 

I 40 TO  640  F3R4AT</*L14I,  -USIXR  1XCIPIPXT  FAILURE  IS  AS  F3U.J4S:*. 
I407|»  /.6S.«U3A0  TY°E  XIHRER*.!2> 

14040  646  F3R44T</*PR3P£RT1ES  3F  L3A0  ACTIXG  34  HAUL  ARE  AS  FJLL3WS1*. 
»404|*  /.5X.«L340  TYPE  XU4BER*.I2> 

1 4090  660  F3R4AT<4X.  *<FR3XT  FACE)*) 

14100  666  F3R4AT<4X<4<S10E  FACE)*) 

14110  660  /3R4AT<  I0X<*H  **<FH.I»*  XT  P3  **.F6.2<*  PSI  C3  *•< 

14111*  FT.1<*  FPS*) 

14120  646  F3R4AT<I0X<<S  <*<F6.1<«  FT  TC  **.F6.3<*  SEC  PR  •*< 

14121*  FT<3<*  PS1*> 

14130  670  FRR4AT<  10X.»L  «*<F6<1<*  Fy  TA  «*<F6<3<*  SEC  PA  *»< 

14131*  FT.3<*  PSt*> 

14140  6 76  F3R4AT<I0X<<U  *«<F7.1<*  FPS  TO  **<F6.3<*  SEC  CD  •*< 

14141*  F6<  1</<4X<*PS3  »*<F7.3<*  PSI  °03  **.F7.3<*  PSI*) 

14160  640  F3R4AT</*IX«UT  4U49ER  3F  UJAD  PJ1XTS  AXO  THE  TIME  4X0  *< 
14151*  ^PRESSURE  A f EACH  P3IXT*) 

14160  690  F3R4AT<Z10X<<TI4E  PRESSURE*) 

14170  696  F3R4AT<F15.3*F12.2) 

16000  EXO 

20000  SU3R3UTIXE  FILLIPS. tEXTRY) 

2001 OCl  C34PUTES  AVERAGE  AIR  PRESSURE  IX  R334  DUE  T3  BLAST  WAVE 
20020CI  IXCIUEXT  HEAD- 3X  UP3X  FR3XT  WALL. 

20010C 

20000  C3M43X  X WALL.  X 1XC.L0TYPE.  XRF<XRAXD<TI4E<  1 1<  Y<  I00><  0<  0U<  YU<  YFAIL< 
20052*  ?^V<  ELJ1<TW<PV<FPC<  FOY<  I CASE<X3BAR<AS<  41  < APS<  4)<D<  4><  DP<  4)  < FOC< 

20054*  EC*  E3*  R*  ALP*  «LP2*  AREA.  E4ASS*  04ULT*  VFAIL.  EXL4.  VH I . V42*  V VI . VV2. 
20056*  «.  P3.  C3.L3C.  S.  EL  EX.  CO.  PS3.  PM.  PR.  PEXT.  PC.  TC.  TO.  DEL  Av. 

20054*  4 VI X.  R433.  V3.L  1 . AA<4.  2)  . XX<  4 : < AFR3X7.  AS1  DE<  G.  G2<  G3.  G4.  PP8,  DT 

20090  LJSICAL  L1.L2.L3 
2009  S<* 

20100  MT8<10<13<  II).  ICXTRY 
20110  10  RFTURX 
2031 OC 

20320  1 3 P3f*P3 
20330  TT«0.»  T3*0. 

20340  RH333»RH33 

20350  L2». FALSE.  » L3*. FALSE. 

20360  RETJRX 
20370C 

20340  II  IF<LD<»Ta  52 
2034 S IFCl2.A.L3)Q0T3  9 
20390  52  0DT«<TI4E-T3>«0.5 
20395  IST0P«2 

20400  53  IF<ODT.LT.0T)0BT3  51 

20410  50  00T*0.S900T 

20415  t ST8P*2*1  ST3P 

20420  M T9  63 

20430  51  C3XTJ4UE 

20440  08  5V  1*1*1  ST3P 

20450  TT*T3»I»00T 

20460  !F<TT.OT.TO)M  T3  99 

20470  D4*G.  1 IPO.  $ Xw*0 

20440  M 300  X*I<XWIX 

20490  4*XX<X)  i DLY*AA<X.  2)»0. 000001 

20500  IFlXr.GE.TTlM  T3  500 

20510  MT2<  1 3*  1 4.  1 6'. 4 

20320  13  C0V'*|.0 

20530  IF<TT-TO20j  20.21 

2054!}  20  P11*<TC-TT>*<PR-PC)/TC»PC 

20550  PI l*Pi 1*P8 

20340  <*  T9  30 

80370  14  C0F*.Q.x 
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'-"K'l'l  2 1 ->=TT'n  S RRM.-E 

PI)6I  1 ?0=P0  |««153»1-V|1(-  9.  «R) 

20420  Pc.=  »5i«f?R‘-:<=><- ?) 

21430  PI  1=PS*C'J*‘R9 
20410  PI  I a R 1 1*PI 

poa^o  30  rri  i = rhi  i«  c c pi  i/pi  > ««r,^> 

20660  I F(P|  1-P33  >36.  34,  37 
20470  ISIG9  = -1 

20630  L2=.TR''E. 

20770  303  P2  = P l 1 

20760  Ri632=C  C P2/P3J )'«  02)  *2-0  3) 

20  720  X=P31/R60  33 

20600  03  T3  32 

20610  3>  IC.IG9=*t 

20620  306  PC-D°2tol I 

20630  RH32=CCP2/»I  |)**02>*RH)I 

90640  X=PI I/RH31 

20650  36  'J22=G4*CX-°2/R412)«32.*144. 

20660  I FC  022)  40.  39.  39 

20670  40  P4<  9F.  *022  4E0Ari  YE«,022 

90660  STIR 

20690  3«  U<sSQRTC  !22> « IS|G9 
90900  <)O4=08*R>r32*AAC-C. 1 )«i)Or 
209 10  04=  06* 01)6 
20990  |»P|  |*ni>4/CG3*R631  ) 

20995C 

20930  ooo  crntNo1-: 

90940  P36  = P33K  G-  I . )*  VV/V3 

2C950  RM3  3T=  R6  1 33*  04  / y 3 

2 99 60  99  C39TI90S 

20  * /O  r ) = TT 

20960  P3=P31“°3 

20962  tFCTtwc'.0E.TC>L3*.  rROE. 

90963  RET0R9 

•20964  4 r=h4E/to  5 90=1.0-9 

2096* j pi)=P01*RR*RE*EXPC-i>.0*R> 

20966  PS=PS1«RR«EXPC-R) 

9094  7 P3*PS*P')*C  AFR)9  r-0.  4*A5|  O') 

2-J990  999  RET0R9 
21020  290 

30000  6 1691  or! 9**  RFSIRT  C1..9TRY1 

300100  THIS  .SJ463jri9-:  19P0T3  THE  P'7J17*'0  ’.ALL  OATAS  )«TER'4I  9.ES  HE 
300200  RESISTANCE  FU9CTI39.  TRA9JF  iRRAri  )9  FACI  J9S.  A90  REACTI  19 
3O930C:  C3EFFI  Cl  E9TSS  A90  eoopi.ies  T4E  REACTI1N  VALOES  F 39  SPECIFIC 
300400  OEFl.PCl  I19S  RF.lotREO  19  ME  0Y9A4IC  ARALYSI' 

30042C 

30090  Cl  1 41 9 -C."ALL»6l9C»L0irPE.-CRF,<R49D,Tl4E»  t.YC  1 00) » 3.  DU.  Y'J.  YFAIL. 
30062*  *LV.  ^lm.  T'-'.  PV.  FPC.  r'OY.  I CASE.  9-7  AAR.  AS!  4) » APSC  4)  » D(  4).  OPC  4).  FDC. 
30064*  EC.  ES.9.  ALP.  ALP2.  AREA.  *4ASS»  340LT.  VFAlL,r<L4.  UHI . 062.  001  . V02. 
30056*  W.P3.C1.L3C.S.ELE9.C0.  PS3.P03.P9.PEXT.PC.  TC.  rO.iXO.AY. 

30056*  NHIN,  9633.  73.  L 1 . AAC 6. 2) » 99C6 > » AFR 39  r.  ASIDE.  G.  02.  G3.  G4.  PP2.  DT 
30100  REAL  9.  IC.  I P.44.  <4  1 .<'2,40,  6 Jt  4).  IC»C  4) 

30135C. 

30140  01  ri<  4.  600.  4i).  I ENTRY 
30150  4 »ET'  149 
30  79QC 

306000  **•«»***•*««••*»•* **«*.•*..*•«*. ......... 

306100  « r9  TRY  2:  0ETER41NE  HALL  PR3PERTIES  » 

30620C)  * IMPENDENT  19  FOC.  FOf,  4915  |)  « 

304 300  ♦*«******•»•***•*«**«•*•«•«»••*•«*»««•.** 

104 40C 

30440  4S  PlPS/EC 
30900  F4=6.0*93PTfFi)C) 

30916  I fi=TW««.3/  |2*{9-  1 >«  { ASt  I )«{0t  1 ) - rw/2>*»2*A°St  1 )*C  TWY2-0P*  I ) '**2) 
30>|7  CALL  C3r-FUCA4-:,4.  ASS.  4«p.  ip  6F,  I G.  CL  v»  ELH.  “V.  NX.  Cr»  EC.  I ) 

30920  4*4  = 9.  O*  I 0*  X FR*P  V/  TH)  / T,J 

30925  CALL  334E9rCF0C.KDY.ES.  9.PV.  1.0.  AS,  APS.  0.  DP.  40.  I CR.  IC) 

31470  G4'|=*4I|C  21/4  IC  I 1 
3I46  0C 

31490  0 027ER4I9E  P3SITI14  3F  YIELD  LI3ES  A90  ULTI4ATF  RF.SISTA9CF. 
.316000  C3EFFI Cl  E9  IS  FIR  TH3-HAY  .'ALLS 
31510  IFCICASE.r.T.4)G-,ri  106 
3I52Q  *1  l=4>j(  4)/40C2> 

31530  C I 3-4IIC  31/4'IC  1 1 
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31 540  GANMA12*2.0*SaftT?!.0*ZIi> 

31550  GANNA34*2.O*S0nT?!.G*?l3> 

31560  GRAT*  GAMMA  1 2/  GANN  A34 

31570  B*30RT?  1 *Z  I 17*  < GNUNALP^  GANNA34!  • C SORT?  GRAT**  2*  3/ 

31S80*  ?»HJ*ALPa>>-GRAn 

31 590Ct  I F BETA  IS  GREATER  TNAN  0*5  A3SUNPT13N  3F  CRACK  PATTERN  A 
31600CI  N3T  VALID  AND  CRACK  PATTERN  B IS  ASSl/NCD  T3  3CCUR 
31610  IPfB.LE.0. 51GPT3  105 
31620C 

31 630Ct  CRACK  PATTERS  S 
31  640  KRAK*1 

31650  B-*S0RT<l-0*?I3)«(S0RTn-0/GRAT»»?+  0!'J*ALP2*3.O>- I .0/  3RAT> 
31660*  /?  CMU«ALP2<iGA.NNA127 

31670  0UTERN*6.0*GANNAI2**2*/t!.  -•  (W'J/ ? SORT?  3*  »/?  94U*A.P2*GRAT«*2>  > 
31680*  *l.0/?SQRT?CMIJ>*ALP«GRAT>>»»2 
31690  U3T0  108 
31700C 

317J0CJ  CRACK  PATTERS  A 
3 1 720  1 05  C0NTINUE 
3 1 730  KRAK»0 

3 1 740  OUTER**  6.  0«  GAM*) A34*« 2/  ( ALP*  1 SORT?  3*  (XU*  AL  P2*  GRAT** 2> 

31750*  * ALP*  GRAT"  SORT?  (XU17**2> 

31760  O0T0  1 OB 
3177CC 

3I780CI  DETERNINE  NSNENT  ANO  DEFLECTION  COEFFICIENTS 
31790CJ  FOR  CRACKED  P2RTI0N  0F  WALL  8EKAV13R 
31800  106  9*0 

31810  108  IF?PV.EO.O)G8T9  190 

31820  CAcL  COEF?  I CASE.  R»  ASSC.  9SSC.  AFC.  BFC.  1 C>  ZL  V.  ZLH.  P V.  '!X.  CF.  EC.  2) 
31830  (J0T0?  195.  195.  195.  195.  1 12.  1 1 5.  120>»  f CASE 
31840  112  OUTER**  1 • 0/?BS5C*ZL  V5 
31850  G8T0  195 

31960  115  0UTERN*?l.0/8?SC*?ZLV«ZLV*PV/?EC»tC>>«NU?3>/?»!U?l>*?|.0 
31870*  -C0S?O.S«ZLV«SQRT?PV/?EC*IC>>>>>>/4LV 
31880  CF*BFC 
31890  00-re  195 

31900  120  OUTER*!*?  1.0*0.  5*NU?  3>/?NU?  1 >*C8S?0.  5*ZLV*S0RT 
31910*  ?PV/?EC*IC>J>>>/<BSSC«TLV> 

31920  CF*BFC 

31930  G9T9  19S 

31940  180  ASSC*ASSS  AFC*AF 

31950  G0T3?i9S.  195.  195.  195.  182.  185.  1901.  tCASE 
31960  182  quTER*i«1.0/?83S*ELV) 

3t*70  Q8T9  195 

31980  185  0UTER9«?*1Uf317HU?n»1.0>/<BSS*i*LV» 

31990  O0T0  195 

32000  190  OUTER**? 0.  S*NU?  3>/NU?  1 >*  1 »0>^?BS5*EV.V> 

32010  195  OIT0C2OO.  210. 210.  210.  200.  210.  21 0>.  I CASE 
32020C 

32030CI  **9**************9**** *••••••••* A* **9***********9********6** 

32040CS  « OETERNINC  RESISTANCE  CURVE  F*R  WALL  • 

320S0CI  * ?3  IS  ts  IWITS  »F  PSi.  KK  IN  LB’CU.tN..  AND  T IN  INCKCS)  • 
32060CI  •••••**«9*«»**«**9***»**«9*«4***** >••*•*•*•••*•**»**•••♦••*« 
320 TOC 

32080CI  CASES  I AND  5 
32090  200  01 »MN/ ? 8SS*ZL  V*2L  VI 
32100  KK1*EC*1  G/?ASS*ZLV**4> 

32110  Y1*Q1A?KI 

32120  KK2»EC«IC/?ASSC*ZLV**4> 

32130  IF?  I CASE  •Ft).  5>  G0T0  205 

32140  OU*OUTERM»NU(  1>Z?ZLV*ZLH*0.S*0UTERN*PV/KK2> 

32150  O8T0  208 

32160  205  0U»0UTER**NU?1>/ZLV 
32170  208  YU*0U/KK2 
32180  G3T3  280 
321 90C 

32200CI  CASES  2.  3.  4.  6.  A 7 
32210  210  01*NN/C8F*ZLV*ZLV> 

32220  KKl*CC*lliF{AF«7LV**4) 

32230  YI*01/KK1 

32240  02«NU?1X>/?CF*ZLV*ZLV> 

32250  KK2»EC*tC/?AFC*»LV**4> 

32260  Y2*02<*KK2 

32270  KK3*EC*IC'?ASSC*7LV**4» 
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32940  Ic<tCASE.GT.  4IG1T1  213 

.792  90  ) JO'ITER4«<  4K  1 )-P(/«(  c£- 12/<<3>Y?>/(  >LV*  ’L4»'l.  5*0IT-:R4*PV/-<<3> 

3 9300  O'IT.3  220 

3231.3  216  7'l=0'iTER4«4-J<  il/ELV 

3P390  990  Yi|=Y2*<0'l-72>/4<3 

32333  240  I F<  9W.  4C.o> f FVP4-K  | >/(*»»«(  1.0-0)  > 

32740C 

32350C-:  CMEC<  DP  TY^r  )F  FAIL-IRE  - LIGHTLY  *El  NFl-iCED  1R  C14VE9TI19AL 

32360  IFCMHC  I >.LT.  1.6*44>G1  T1  244 

32370C 

39340C!  CONVENTIONAL  TTH"  FAIL'IRF 
32390  YFAIL=Y  1*0.  |/<AS<  1 )/0<  1 >1 
394.7001  locriLirr  factor  4-ist  re  <-  30 
39  41 0 t Ft YFAIL.  0T.30.  7*Y'i«  fPa(L  = 30.0*Y'l 
32430  03  T1  90  6 
32440C 

3246001  I.IWH.*  REINFlRCFn  TYPE  3F  F-.IL'IRE 

39.16.3C.  THE  FILL  INI 9 0 fyprfsSIIN  IS  AASEO  39  A STEEL  gLINGATtlN  3F  201 
32470  246  ’JC3Ec-30. 

32440  > |P'I='IC1EF* SORT C FOCI 

32490  ARARJ-*.  l4169«<91RAR/>  4.  >«.9 

32600  290  TFAH_=  SORT<  < 0.2«ARAR*Pi)Y/"o.|.’|  u/2.  )•*?-(  *i.V.  2*  > **2> 

3.1611  9.'5  1 F<  4(1. -:>. o>01  T3  295 
32520C1 

3263001  IF  FAILURE  REFLECT!  39  DIE  T3  1 9 STAA1LI  T t IS  LESS  THAN  VALVE 
32640C1  RASEO  19  REI  9F*R0E4E9T»  s-ilSTI  T.ITE  MI S VALUE  FIR  YFAIL 
32650  t P<  f FAtl. « OT.  YFVl YFAIL* YFV 
32660  3FAIL*  3U*  < 1 FV-  YF«1L  )/  < YFV-YV> 

32670  OITI  294 
32  640  296  0F41L*  O’l 
32690  29 A C19TI  9‘IE 
326000 

39610F1  9101  FY  RESI  STA90E  VALUES  AY  wINOl  w 4 101  F[ 0ATM9  FAC T 1 R 

32620  OI»"J1*04XT 

32630  09309. 39-P.T 

39640  0'|r3  l»0v.l«-r 

32660  OFAUOFA!L*34<*.  f 

32660  <<!*<<!*  04  *XTS  < <2=  < <?.  yi  *,T  6 <<3=<<r."  M ft,  r 
396700 

306400}  .lUM-IT  lA>3-OEFl.POrn9  r.lR./E 
32690  IF«RA90.E1.  1 > 01T1  336 
32 7'10  PRINT  660 

32710  tFUr.AvP.PO.I.lR.ICASE.eo.Sirsiri  320 

.72720  PRINT  66o.0l.Yl*  32.Y2 

32730  GIT-1  330 

32740  320  RRI9T  660.01.Y1 

32750  330  PRINT  060. OU. YU. OFAIL. YFA1L 

32760  335  CONTINUE 

32770C 

32740  CALL  TRANS  < 0.  EL  V.  ELM.  1 CASE. 2RA<.  22L4SE.  E <L4FE»  E4L4P.  VUI  S,  VH2S* 

32  790*  VVt  S.  VV2S.  V-MF.V42F.  VVlF.  VWF.  v-UR.  V42°.  VV1P.  VV2P> 

32410  RETURN 

32420C 

.724300.1 

794AO01  • ENTRY  3t  0ETER4HF  THE  RESISTANCE  I PER  UNIT  AREA!  • 

32450C1  « IF  THE  NALL  A*  A F'INCTI  39  3F  YC 1 > • 

•724  60C1  ««♦««••••«««*•.'»•••«•«*••««••••*«••••*•*»••••••••«#•« 

324  70C 

32440  600  IFCYCll.  OF.  YFAIL  > 01 T1  560 
3?490  IFtYt  I >.0T.  Y'llOlTl  640 

72900  O1T7C501.690.  590.  S90.  >0|  . 62-0.  69i)»,  | CAPE 

39910  301  019  TIN  IE 

32920C 

72930C1  ELASTIC  RANGE  --  CASES  1 ANi)  5 

72943  9<L4=E<L4SE 

32960  V413V41S  S V4R=V42S 

32960  VVI*VVIS  S VV2* VV2S 

32970  IFCYCIJ.GT.Y11S1T3  510 

32940C 

32990C1  UNCRAC4E0  P3RTI1N  --  ALL  CASES 
33000  506  9*Y(I>«441 
330*0  RETtlR9 
33020C 

SS-'lOCt  CRACEEO  PORTION  --  CASES  I A9»  6 
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33040  510  0*Ql*<r(t)-Yn«<')U-'31  >/<rU*Y») 

33050  RETURN 
33060C 

33070  520  IF<Y<n.G7.Y21(J)T3  S30 
330300 

330900  ELASTIC  R4NGS  — CASES  2.3.  4.  6.7 

33 tOO  Z*LM»?*LMFE 

331 tO  VH1«VH1F  $ VH2* VH2F 

33120  VV!  ■ VV1  F * VV2*VV2«- 

33130  lFtYCn.LT.YttGlTa  505 

33135CI  CRACKED  P3RTI3N  --  CASES  2.  3.  4.  6.  7 

33140  <J*Q1*<YU)-Yt  )*<02-Q|)/<Y2-Yt> 

33145  RETURN 
331 SOC 

331600  ELASIP-PLASTtC  RANGE  — CASES  2.  3»  4,  t,  7 

33170  530  2<LN*g4LMSE 

33130  VHI*VH1S  t VH2»VH2S 

33190  VV1-VV1S  * VV2*VV2S 

33200  0*Q2*KK2*<Ytl)-r2> 

33210  RETURN 
33220C 

33230CI  PLASTIC  RANGE  --  ALL  CASES 
33240  540  ZKLNiFKLMP 
33250  VM1*VHIP  t VH2*VH2P 
33260  VV1«VV1P  * VV2«VV2P 
33270  IF<PV.GT.07fJ3T3  550 
332300  N3  INPLANF  F3RCES 
33290  Q«QU 
33300  RETURN 

3331  OCl  WITH  INPLANE  FORCES 
33320  550  Q«QU*<rFV-Y<  1)  1/t  YFV-YU) 

33330  RETURN 
S3340C 

333500  MALL  C0LL4PSED  - NO  RESISTANCE  tTO  AV31 D NIJNERICAL  01 FFICULTI  EES 
333600  FOR  CERTAIN  CASES  SET  RESISTANCE  EQUAL  TO  VERY  SN4LL  VALUE) 

33370  560  8" IE- 10 
33380  RETURN 
33390C 

33530  650  F0RMATt//*L04D- DEFLECTION  CURVE*. /» 38. *Q  CPSI)  Y CIN.)*) 
33550  660  F0RM4TI  F9. 2.  FI  2.  41 
33570  END 

35000  SUBROUTINE  MONENTIFDC.  FOY.ES.R.PV.B.  AS.  APS.  0.  OP.NU.  ICR.  IC) 

350I0C  THIS  SUBROUTINE  OETERNINES  THE  ULTIMATE  NONENT  CAPACITY  4.ND 

350B0C  CRAlXri  MOMENT  OF  INERTIA  FOR  REQUIRED  SECTIONS 

35040  REAL  > * 42.K3.4U0.N.  I C.  I CTOT.MUI  4>»  I CRI  41 . A5C  4>.  APS!  4).  OC  41.  DPI  4) 

33050C 

350600  DETERMINE  VALUES  OF  CONCRETE  PARAMETERS 
35070  45  KI*0'«4»FDC'26E3 
35080  N2-O.SO-FDC/RE4 

35090  K3*<3900.O*3.3S*FDC)/(3E3«0'«2*F0C-F0C*FDC/26E3> 

33100  EPSC*0.00«'FD06SES 

351 500  ••••••«••«*••••••••••<,••••«••••••••••••*•••••••**• 

351600  • DETERMINE  ULTIMATE  MOMENT  CAPACITY  AND  CRAlXC©  « 

351700  « MOMENT  QF  INERTIA  FOR  REQUIRED  SECTIONS  • 

351800  ««••••••*•*•*.•••*•••••«•••*•••••••♦****»*«•••#*•• 

35190C 

35200  11*00  ICT8T*0 
35210  08  1 70  1*1.4 
35220  IF( AS(  1 7 «SQ.O>  QOTO  170 
33230  11*11*  I 

352400  ALL  PROPERTIES  ARE  COMPUTED  FOR  A wt  OTH  8 
3S2S0  TENS*ASU)*FOY*PV 
35260  IFI4PSI  l >«LE*0>  OOT8  150 
352 70C 

352800  MALL  HAS  COMPRESSION  REINFORCEMENT 
35290  C*KI*<O*F0C*B*DP(!> 

35300  TEW  I *0«  5*t  TENS/ APSt  I >*ES*EPSC) 

35310  TCRM2*ES*EPSC*t TCNS*C>/APSt I ) 

353200  DETERMINE  LOCATION  OF  NEUTRAL  AXIS 

35330  IFCTENS.Ll.O GOTO  140 

3S340C 

353500  MUD  » 0’ 

33360  FPS*TOWI*i<3*FDCF2.0-S0RTUTF.RNl*N3*FDC/2.0>**2 
35370*  -<TERM2»ES*EPSC*><3*F0C>> 
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ISHOC:  F*S  -I'l^T  A-”  <=  foy 
353'"»  l*<r»s.LNroy>r.in  i» 

1t>401  cpc-s-dy 

1*»4|0  130  T?S=AP5<*  )*<*PS-*3*F9C) 

35420  <‘J0=<  riWS-  rP5>'<<l*<3*FJC*3> 

3*>430  *•!<  I ) = (T=*'JS“TP?>*C  X I >-<2*<0»»*TPS«<  0<  ( >-OP(  f > > 

35440  1 C«<  t >*A**i|0**3/3.0*'J«46U  >*<UC! 

3S4bO*  ♦ < *-l  )*APS(  l >*<<’»'•  0P<1  > >*«? 

33460  om  |V> 

1 *>470C 

15a*>C:  <*J)  < O* 

35490  140  ^:-rWI»SHl(K^I««<;.T>>12) 

3b500C:  F*S  MOST  3F  <3  *r,»f 
»s*>10  IccffPS.LNPOfJOin  1 4*> 

^•j’wO  Fi>* sFDf 

3b *>30  14b  K‘Ol3=  rEXS*APS<  I >*FPS 
3S>40  <»lO*T5°4.1/<<t*‘<3«FnC**> 

3SSS0  *«J<!  >x  TE261* C 0(  t >- <2*<,iO>-AP5<  I >*FP«;«r<  0<  I >-0P<  I >) 

35SA0  IC»(I  >*3*KM0*«3/3*X*Ac(  I )•<!>(  I *•  ?*X«  A<>5  C t >*<0«U  >-<'ll>'**2 

jss/o  <wn  is? 

*>3S-0r 


iaaaap.  %'all  *as  xi  rki xfo^cf^x r 

*‘ss^3  i *,0  <*iOTT<?'jr/<  <i*<3<«foo*> 

3boio  **i< i > = r-'Js*(o( i >-<2M !io> 

J‘i620  1 CPC  l >aM*<ijO**3/:<.0*X*4S<  l >*J  0(  l >-<i|0>**2 
1SS30C 


3S*>40  l >2  ICT1MCT1 MCSU) 

35650  170  C3XTIX«JC. 

356*90 

3SA70C:  OfTF**!  X*  A’/rjAr,c  n?AC<FO  634EXT  IF  !X**4TtA 

»>s*o  i ?•>  tr^icni/li 

> .630  4”  T i vx 


15700  “'JO 

40000  oR43‘»TI  'J*C  0)FF<  1 CA‘,c,^#AC«;,ac  c.AF,  *4F » ( » *tv*  'LM*  p v.  XX  * OF  » 


40010* 

E.  I EM  TRY  > 

40020C* 

Ti«t«  ciWJnurtME  UETERMJME?  1 .^EMT  AMD  OEn.ECri  1M  CTEEC!  Cl  EM  1^ 

40030C* 

Em  iME-war  <CASr'  •>- 

7>  1X1)  T«3-WAy  (CASE?  1 - 4>  WALL 5 

40040C 

40050 

REAL  I.MRR.'K'R'O,  M 1 

40060 

XF<IEMTRY.E''.,>01T1 

200 

40070 

MM  - 1 

400*o 

IFUCASE*  AT.  A>  RITA 

50 

4009OC 

40100 

RRsR*R 

4C110 

R3»R»R3 

40120 

R4=R3*R3 

401  *0 

A6S*- • 00  7030* • 0 1 3*90*4- . 003456*42* • 00026  6*43 

40140 

35 S’*-. 056332*-  13911  4*0-.  0.15609* 42*. 00301  6*43 

40150  * 

m fMC4|  .20.  30.  40>» 

I CASE 

40lu1C 

*01700*  CASE  2.  Ff  A SO  7*  F4U4  SI  0E5 
401*0  >0  XX*3 

40190  AF=- .003430* • 007327*4- ♦ 0013654 92* • 0006646*43- • 00004 766* *4 

40200  3F*-. 1011  SO* • 260H  75*  A- • l 369*2# *?♦. 03467  7* *3- *00401 6*44 

40210*  *.0001 70*4**S 

40220  OF*-. 1674*.  3554*4-. l 71  4*42*  . 026  6*  43 

40230  am  41 

40240C 

402MC*  case  3*  fjx eo  ix  cmipt  51 oe?*  sixpur  smppiqtfo  ix  loxg  5105:5 

40260  30  9X3  4 

40270  AF*. 004513-. 01  7525*->*.02309S*42-*0l03?5*43*. 00^16  7*44 

402*0*  - . 0002206*  4*  * 5 ♦ *00900*404* 4** 6 

40290  3F»-  • 1 221  49* • 1J  3445* 2-  *1539  79**2» • 036f 92* 43- . 0040 1 5*44 

40300*  *•  non  1 446«  <*«*•> 

40110  CF«2.  1956-7.  7564*4*  10. *376*42- 7.2495*43*2*  344*44 

40320*  -.2954*4*«5 

*0330  TOT.!  41 

40340C 

40350C*  CA*E  4*  5!4PLf  $i|PP14TF[)  IX  5M3RT  SIOEC,  FIXED  IX  L4XG  SIDES 
40360  40  XX=3 

40370  AF*- . 002765* •004  652*2* *095696*  P2* • 001429*43- .0002669*44 

40360*  *.00001 734*4**S 

40390  AF*-. 060120* • 25651 5*9-. I 15646*42* • 05  7926*43- . 00922 7* 04 

40400*  ♦. 000569*4** S 
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40410  CF*S.898  7*R- I . 4669-  7.9.19R*R2*  5.  31 42*R3-I • 7623* R4*.  231  3*R««  S 
40420C 

40430  41  IF1R.  (TT.  ?.010P*J.  0/12.0 

40440  IFIPV.EO.OIRETURN 

40450  4RATIR3AF/ASSS  RRATI3»RF/RSS 

40460  AF330F$  CF3«CF 

40470  GOTO  220 

40480C 

40490  50  1F<PV.NE.0>G3T3  300 

40500CI  CASE  5.  3NE-WAT  SINPLF  SUPPORTED  KALI, 

40510  ASS3  5- 0/234*0 

40520  BSS»0.  125 

40530  (»T3<27u.27G.270.  270*270*  60  . 701.  JC'  it 

40540C 

40550C*  CASE  6.  3NE-WAV  FIXEO  ENO  HALL 

40560  60  AF*|. 0/384.0 

40570  8F* I. 0/12.0 

40580  CF*  1.0/ 1 2.0 

40590  NX*  3 

40600  RETURN 

4061 OC 

40620Ct  CASE  7.  3NE-HAT  PR2°EAPE0  CANT1.  SVFR  MLL 

40630  70  AF*1. 0/183.0 

40640  8F*0. 125 

40650  Cr*0.  125 

40660  XX* 3 

40670  RETURN 

40680C 

4069  0 200  I FC  I CASE*  GT.  47  Q3T2  300 

40700CI  DETERMINE  ELASTIC  DEFLECTION  AND  N3MENT  C3EFF!  Cl  EXT  F3R 
407100s  T VO -WAY  HALL  HI  TH  1XPLAXE  FORCES 
40720  220  PI *3.  141591  65 

40730  Ntf0.3 

40740  PC*4.0*PI*PI*E«I/<?LV*ILV*C1.0-XU*XU»> 

40750  BV«0 

40760  230  AV*0 

40770  PPE-PV/PE 

40780  TERM6*  4.0*PI*PI*R*S3RTI  PPE7 

40  790C 

40800CS  SERIES  S8LUTI3X  USED  TO  DETERMINE  C3EFFI Ct F.XTS 
40810  03  2 50  M*l.  7.2 

40820  *PR*i4*PI«R 

40830  MPRS93NFR**2 

40840  (*4S8»M»RI0»2. 0*XPR*P! « SORT!  PPE) 

40850  EMS0*XPRS0-2.0*XPR*Pl*S0RT<PPE> 

40860  TEIM3«M*MPR$a*<MPRS0-4.0*PI*Pt«PPC> 

40870  C»SH0N2*0.  5*IEXP<  0. 5*S0RT<  OSSGJ  >»EXP<-0.  V’SORTI  ONSQ7  > ) 

40880  IF(CXS0«LT.O108T3  240 

40890  CSSHCM2*0.  5*(CXPtO>  5*S9RTCEMSQ7  >*EXP(-0.  5*S9RTCEXS0>  > > 

40900  08T8  245 

40910  240  C3SHEM2»C3S<0.S*SQRT<-EXS9>> 

40920  245  AV*AV*I1  .0*  *~MS0/C3SM0M2-f»NS'J/C35HEN2>/CM*TERM47  > 

40930*  *C-  1 >••(  <M-1 1/  /TERMS 

40940  BV*8V*<MPRStl»I  O4S9*(XU«EMS0-MPRS0>/C3SSEM2-EMS«*<NU*  WSO 

40950*  -MPRS0>/C3SHGM2>/IM*TERM6>  >»t-|  5**<  CN- I >/2>/7rRMb 

40960  250  C9XTIXUE 

409  TOC 

40980CS  CASE  I 

40990  AVSS*AV*<  1 . 0-XU*XU>*R4*4.  O/PI 

41000  BVSS*BV*r2*4.0/PI 

41010  IFtlCASC.EQ.  I7G0T8  260 

4I020C 

41030CI  CASES  2.  3.  AXD  4 
41040  AVF*AVSS«ARATt» 

41050  By/F*  BVSS*  BRATI 3 

41060  CF»CF3*9VF/RF3 

41070  2 58  AF*AVF 
41080  BF»BVF 

41090  260  ASS*AVSS 
41100  BSS*BVSS 

41110  270  RETURN 
4II20C 

4I130CI  8NE-WAY  HALLS 
41140  300  EIPV»E*1/PV 
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PROGRAM  RCHALL  (CONTINUED) 


41  ISO  M3  7i.v/siRr< C1 pv) 

41160  MpiO.i*1! 

4n7o  ter4i*i.o/os('I2>-i.o 

41  130C 

4ii70Ct  case  a.  M-:--iAr  si'i^n.r  s hp.irteo  «all 

41000  o,:«3r»:4'ii/i*«i 

41810  ASS*t^S«*0.  1'>‘>»/-i««o. 

41830  on  n<  0 70,  870.  270.  3 70.  870.  on.  320).  ;oas* 

4I230C 

41840C1  CAS?  6.  T9*'- wax  rum  EW  > '.ALL 
41250  310  9X*3 


41240  4Fi<  1 .')- M?/ TAN  <M->  >)/'.!•  *2 

41270  AFs- A**«9*$»ASS 

4i  24o  retm-n 

A1290C 

4I300C1  CAS?  7.  1NE-WAV  uRIPpr.l',  CANTU  EVCR  WALL 
41310  3.20  NX  = 3 

41320  A5, 3 TA9<U)*(TAN<*|2)-iJ6)/<*J»C  1 A4C  ■)>-•!>  > 

41330  AF*{  9F«(0.  4.  St  N(J6)/T4N<>J>-CJs«i|2>>-{  SINT  •!'<»>/ TANOJ) 

4 1 340*  -cost  "8  -«!9(>|:i>/StN(‘J)*0. 

41300  RETURN 

41360  979  E9i) 

50000  SU9R1UT1NE  TRANS  C 4,  *L  V.  tLH.  !C4$fc'» <RA<»  /<L4S£»  '-<L4F£.  /.<LNP»  \A-  I S. 
S0010»  VL2S.VSIS.VS2S.  VI  1 F.  VL2F.  VS1  F.  VS2F»  \A- 1 8.  \t2P.  VS1 1,«  VS2P> 

S0030C 

50140C:  TR1S  S'JBRJUTINE  0ETER41NES  LJAO  ANO  4ASS  TRAJSC1R4ATI IN  FACTORS 

50050CI  AMD  0TNA41C  REACTION  COEFFICIENTS  F3R  TtO-WAf  .ALLS- 

5OO60C 

50070C)  0ETER4IVE  L3A0  490  9ASS  TRANSFORMATION  FACT3»S 


50010  32*B«9 

S0090  33*9*92 

501  00  94*92*92 

SOHO  35*32*a3 

50120  96*93*93 

401 30C 

S0140CJ  CASES  1 * 5 — ELASTIC  943 GE 

50150  330  »<  5SE1  *20.  43*33*1  1 . / 1 2. -“2/  7.  5*43/21  *44/  1 4-45/13*46/90) 

50160  .49S~?*0.  5013-0.  7066*9 

601  70  T1LSEH6. 4*42*1  l . / 6. - 92/  I 0. . =3/30.) 

50130  *6LSE2*0. 64-0. 4134*4 

50170  4ARSl*R*l 1. /1 2. -92/ 15. *43/ 42. )/< 1./ 6.-42/10. *93/ 30. > 

50200  4A9S2*<0.  12  7033-0.  1 34524*  91/ 1 0.  4-0.504333*4) 

60210  /<4Sr.**<1SEI*/54SE2 

50220  /4LSE*'3LSE1*'4LSE2 

50230  IEC<4A<.EJ.  D91T3  335 

502*00  CRACR  PATTERN  A 
50250  CVS*0*  5*9 

S0260  CWL»0.5*<  1.0-41 

502  70  KP*TLH«9/3.0 

S023C  X9ARS*3A3S1*/L4 

50290  /P*/LV*<  l .0-4.  0*9/ 3.  07/ T 4.0*1  1.0-4)  > 

50300  /9ARS*9ARS2*TL V 

50310  xBARPi-O.  5*B*ELH 

50320  /4ARP»/LV*<  I ./24.-4Z  16.  )/T  I ./4.-H/6. ) 

50330  01 T*  333 

503400  CRACX  PATTERN  4 
50350  335  CVS*0.  5*  1 1 .0- 9) 

50360  CWL*0.5«9 

50370  XP*ILR*1  1 .0-  4.0*  9/  3.0)  ' C 4.  0*(  I . O-H)  ) 

50130  X4ARr*9ARS2**L4 

50390  TP*/LW*9/1.0 

50400  /BARS*9A9SI*'LV 

50410  XRARP* 71.4*1  1./24.-S/1  6.  )/U  ./3.-R/6.  ) 

50420  -4ARP*0.  5*4**LV 

50430  333  LMSE*T<NSE/'<LSE 

50450  MT41  390.  340.  350.  360.390.  340.  473).  1 CASE 


50360  CWL*0.5«9 

50370  XP*!LH*<  1 .0- 4.0*  9/ 3.0)  ' C 4.  0*(  ) . O-H)  > 

50130  X4ARr*BARS2*7L4 

50390  7°*  *LV*9/  1.0 

50400  7BARS*9A9SI*'LW 

50410  XRAR?»rt.4*<  1./24.-B/1  6.  )/U  ./3.-R/6.  ) 

50420  -4ARP»0.  5*4*7I.W 

50430  333  LMSE*T<NSE/'<LSE 

50450  03  TOT  390.  340.  350.  360*390.  340.  473).  I CASE 

50460C 

50470C)  CASES  2.  3.  * « --  ELASTIC  RAXOE 

50430  350  tFtXRM.EI.  I101T3  365 

50490  00  T1  340 

50500  360  1 FIX  RAX.  E9.0XT1TJ  365 

5051  OCl  CASES  2f  29.  3A.  4*3,  * 6 

50520  340  EX'***.  512, o»45*<  1.0/30. -B/10. 5* 3. *92/24. -93/19. *94/90.) 

50510  *3LCE.  12.  r.*91««  | ./l  R. -4/ 10*  *92/ 30.  ) 
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PROGRAM  RCWALL  (CONTINUED) 


50540  BARFI 9R9C  • 05- 8/  I 5.  *82/  42.  >/  C t . / 1 2.  - 8/ 1 0.  *>32/30.  1 

SOSSO  GlTlt370.  365.  370.  370.  370.  3651.  I CASE 

50560C:  CASES  2A.  2B*  3B.  4A.  4 6 

50570  345  /RNF£2»0.  406S-0.  61 44*8 

50550  T5LEE2*0.  5344-0.  7O0«»B 

SO  540  BARF2»C.09|667-.  1 380954  91 /C  . 26666  7- . 3666674B1 

S0600  03T3C37S.  365.375.  375.  37S.  36R> . I CASE 

5061 OC:  CASES  2A  t 29 

50620  368  XRNFE*  XRNFEI  ♦ X-CMFE2 

50630  ERLFE*/<l.FEl*C8LF£2 

50640  GOTO  380 

50650CI  CASES  3A  * 4B 

50460  370  !<MF£sx8»tFE|*'KNSE2 

S0670  TKLFE*?<LF£1»?<LSE2 

50680  GOTO  380 

50690CI  CASES  38.  4A.  4 6 

50700  375  »88FE*E8MS£1»»88FE2 

5071 0 ?<LF£*?8LSE1*»8LFE2 

50720  380  ?KL8F£«?<8FE/»8LFE 

50740  GOTO  390 

50  750C1  CASE  7 

50760  470  OKLMFEiO.  78 

50770C 

S0780CI  ALL  CASES  — PLASTIC  RANGE 

50790  390  ?4MP*<  I.0-BJ/3.0 

S0800  TKLP«  0-3-9/  3.0 

50810  »8LHP9X<NP/1!KLP 

S0820C 

50R30C 

30840C1  DETERMINE  CYNANtC  REACTI3N  COEFFICIENTS  FOR  SHORT  C «/S>  AND 
50850CI  LONG  CvA-1  EDGES 


S0S60C 
50870 
50880 
50890  395 
50900 
50910  400 
50920 
50930 
50940  405 
50950 
50960  410 
509  70 
50980  415 
50990 
51000  420 
51010 
51020 
51030  425 
51040 
51050  430 
51060 
51070  435 
51080  440 
51090C 

SUOOCl  CASES  2. 


ircTCASE.LT.SlOjrj  395 

XBARS« 1 E- 10S  BARF I » 1 E- 1 0$  <BARP*1E-10 

CONTINUE 

GJ  TO  < 450.  400.  400.  420.  450.  400.  4451.1  CASE 
IFCKRAK.EQ.  1 1GJT3  410 
XBARF.BARF14XLH 
IFMCA8E.E0.310BT3  430 


28ARF»B4RF2*TLV 

G8T8  440 

XBARF«BARF2*ELH 

I Fit  CASE.  EO.  31  ©8T0  435 

I8ARF«BARF1*»LV 

GOT*  440 

tFC8RAK.E0.11WT3  425 
XAARF>BARSI*TLH 
(UT3  405 
X8ARF«BARS2«?LH 
08  T8  415 
»BARF»BARS2«?LV 

WTO  440 

»BARF»BARSIVLV 

CONTtNUE 


3.  4.  * 6 --  ELASTIC  RANGE 
VS! F»CVS»  C 1 . 0-X°/XRA9F7 
VS2F«CWS*CXP/X9ARF1 
VL1  F»ClA.9C  1 .0-»P/XBARFl 
\A.2F»CWL9(XP/»BARF1 
GOTO  450 


51110 
SI  120 
51130 
51140 
51170 
SttROC 

51190CI  CASE  7 — ELASTIC  RANGE 

51200  445  VSIF*0 

51220  VA-1F«0.459 

S12W  VA.2F90.I65 

51250C 

SI260CI  CASE  1*5--  CLASTIC  RANGE 
51270  450  WS1S9CWS9CI.0-XP/XBARS1 
51280  WS2S9CVS9CXP/XBARS1 

51290  VA.1S9CVA.9<|.0-XP/?BARS1 

51300  VA.2S9CVA.4CXP/XHARS1 

5I340C 

5I350CI  ALL  CASES 


--  PLASTIC  RANGE 


111 


- -=  Vi 


gjjgjgg 


Jm 


- 1-^  . niifiiiiiinrT 


PROGRAM  RCWALL  (CONTINUED) 


-.|?A9  460  VSI 3'CV$* < 1 .0- <P/YP4RP> 

613  70  V??P=C  VS*  <<P/XPi-lP> 

51330  VL  IP»CVL*<  I .0-/»//3APP> 

S 1 330  »/L?0*CW.«C?°/»AARP» 

5l  400  -fETURV 

51410  '40 

70000  '■•J3311T!  4E  444074  <IE4T=V> 

700 1 OC  IMIS  S'lA31ITI4*  I4PMTS  4EA4  440  4T44t)440  DEVlArl14«-  FIR  444034 

70020c  variables!  operates  ravojr  values*  440  0141401.?  peouired 

70030C  4U3RER  )F  CAS"  T1  RE  RUM!  440  3UT“UTS  'I4AL  RFS'LTS  440  3044447 
70040C 

70050  C14414  < .ALL.X  l 4C.L1rVPE,  <9F,X*A4D»  Tt  4E»  1 .VC  I00>»  9.1'J.  YU.  VEAIL. 
70052*  /L  V,  'LR.  T'*.»V.  F»C.  -0V«  1CASE.  43444.  A'<  4>, APS(4>,  0(4). 0»<  4>,  FOC. 
70C54*  EC.ES.  4. 41. a.  AL '2.  AREA.  'RASS.’M'JLT*  VFAIL.  »<L4.  VHI  > VH2.  VV1.  Wit 
70054*  -..PI.  Cl. L1C.  «,  U.c4.  CO.  PS1.PD3.PR.PEXT.PC.TC.T0.  DELAY* 

70053*  4UI 4*  RH11»  V3.L  1 . AA<3,  21 . 44<3  >.  AFB14T.  AS!  0-:»  0.  G2»  03.  G4.  PP2.  OT 
70030  COM 414  / 3440/  TI4EC 

70040  01  4E4SI 14  CHI25<7>.CHI975<7>,TOI'r<  71 


70030  C14414  / 3440/  TI4EC 

70090  01  4E4SI 14  CHI25<7>.CHt975<7>,TOI'r<  71 

70100C 

70I10C  VALUES  FIR  97.5t  < Fi  | 9. 24,  29,  34.  34.  44.  49  > 


70120  DATA  CR!  25/  • 4633.  . 51  67,  . 5533*  . 6325.  . 6066.  . 6267,  . 6440/ 

701  30  DATA  CHI 9 75/1  . 729  5.  1. 6402.  1 . 5764.  1 . 5234,  1*  4903.  I.  4641, 1.4331/ 

70140  OATA  TOIST/2. 093. 2. 064.2. 045.2. 032. 2. 022. 2. 014. 2. 010/ 

701 50C 

70160  01T115.  SO.  70).  I * 4TRV 

70170  5 XO'M'irsT41R'II<-l.0.r..O»|.O> 

70I30C  14ITIALHE  RA40-H  4U4BER  GE4ERAT1R 


70190  PRI4T. /.«I4PUT  49 A 40*. 

70200  READ.  4RA40 

70210  01  47  1 “ 1 , 4RA40 

70220  x0tM4Y'X4.1R*«l<O.0.0.0.  1.0> 

70230  47  C14TI4  1E 

70240  I40EX405  'PSIiOt  SSPSI'O 

70250  I CRECX  *20 

70260C 

70270C  IVP'JT  3EA4  A40  STA40ASD  DEV!  ATI 04  F.19  RA4114  VARIABLE' 

70230  PRI4T  3 7 

70290  OPAn,  4MCA4.  "0 

7041  OC  OEI4F3RC'0  CIvCRETE  -ALL* 

70420  30  PRI  IT  3 6 

70430  READ, F0Y4EA4, FOVSO 

70440  PRI4T  96 

70450  RETUR4 

70460C 

7O470C  GE4ERATE  RA40.13  VALUES 

70570  50  FDY*X41R4 1 <0.0.  F0YREA4.  FOYSO) 

70530  1FCF0V.LE.01G0T3  50 

70535  lF(S3EA4.E0.0)o0r3  65 

70590  60  S*X43R31  <0.0.  S'lEAV. 'SOI 

70  6 00  1F<S.LE.01<5DT3  60 

70410  65  1 40SX*  I 40EX*  1 

70420  RETUR'l 

70630C  S’M  VAL  JES  IF  PS3  A4U  P61»«2  FIR  USE  14  STATISTICAI.  A4ALYSIS 
70640  70  sps.1  = 'P'1»p.'1 

70650  "PS.1sS'PS3*PS1«P'1 

70660C 

70670C  1'-T»'JT  F14AL  RES'l.TS 
70730  76  “RI4T  92.F0V.S.  p$1.  TI3EC 

70740  30  IF<I4QEX.LT.ICHECX)RETUR4 

70  750C 

70760C  0ETER3I4E  HEA4.  STA40AR0  0FVIATI14.  A40  'TA4DARD  ERR1R  F.1R  PS1 
71771  ?N1  s I 40EX 

70  730  /4EA4.SPS1/T4.1 

70  790  SO*SORT<  <SSPSl-'43«7'1EA4«/6EA4»/?43> 

70300  ST0ERR»S0/<'JRT<'4a-ll> 

703 1 0C  C.MECX  IF  4AXI4U4  3F  50  PSA  SA1PLES  3RTAI4E0 
70320  IF<I40EX.F,0.50>(J1T.1  62 

70330C  CHECX  IF  951  C34F|Q£4CE  1 4TERVAL  FJR  REAR  P S3  VALUE  IS 
70340  I F<  STOERR'TOI  ST<  < 14DEX-  1 5J/51/E3EA4.  (*T*0.I0)G3Tf  61 

703 50C 

70360C  C34F10E4CE  I4TERVAL  1C  4ITH14  IOT  --  9ETER41 4E  ‘JPPER  LIHIT  3F 
70370C  951  CA4FI0E4CE  I4TERVAL  FAR  'TA40ARD  0EVIATIJ4 
70330C  PR3BABILI  TV  VALUE  A40  ITS  95»  CA4FI DE4CE  I4TERVAL  'P>P£R  LI3IT 
70390  62  SOU'Sn/CSORTVCMIPSCtlROEX-ISI/SMJ 
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PROGRAM  RCWALL  (CONCLUDED) 


70900C  CHECX  IF  4AX14«M  IF  SO  pc  I SAHPLFc  )BTA! 4£o 
70*10  ‘»0>  OI  r)  S3 

7*)7P0C  CH-*r-<  1 F |PP?^  VU.JF  IF  9->'.  C^CI0-.9CF  MT-'RVAL  F 1»  crA4:>ARO 
709. IOC  0»-:v;ATI  JM  ic  VI  rMM  0.1Q*-1F44  IF  T*4F  CT440440  O-WI  A rl  3 4 
709  40  I -*<  ( < c0  I-  mJ>/  9 4FA4  ) • GT#  O*  1 0)  OlTl  61 

709  ViO 

709*00  9Si  CIVFIO^MCF  t4T-'RVAL  1C  . ITHI4  10<  r )•?  A ) M 'A-.X*  *3  : 

709  70^  PROBABILITY  i/AI.  I-  --  f J *•<•>*  HF  r.|  **4f  c>4‘sl£H  HrAUv) 

70  MOP  OtffC  9F  o»>'  r^fflO-9CF  I4TFHVALS  FI?  4--.A*#  MMJH-O  *\'Jl  X UJ4 
70990# 

7J0O0C  A40  10*  A 40  70t  »Rl43*M».trY  ;AL».i^c 

7ioio  >7  / *i-:a4l  = ^c*A';-c n *99»T9i .«* r< ( 1 4 >:<- 1 ti/s> 

71  020  ^9FA4'|-'  4- A4*«  I 0KR4  * T‘>1  SHU  4»>£X-  1 *»>  ✓ ■>> 

71  030  C0L*CO/<$7RT<  CA19  7^(  ( l 4 l :>>/*>)  ) 

71041  «>|Qs  '4FA4-1 .202*50 

7 1 OSO  P|Ot=y  4“A4-  l • 242*S0*J 

71060  Pi0i**4~A4- 1 

7107?)  P9*0a '4£A4*  1 • V>H2*S0 

71  OHO  P*0L*'4*:A4*  I •2S2*S‘)L 

71070  P90 s^MTA4*  1 . -*^P*cn 

71100  P»0  |s'4FA4*l  #9^9«<0'l 

71  UO  »»0»ja»4fi:A4**U2H2*S*Vl 

71120C 

71130C  1 IP-lf  cfATIctiCAL  *\9\4*  f*RC  \p  |4ClPl~4r  OILLABCF  ^.’cciV 
7 1 1 40  PR14T  100#  *4*A4#  *4*:A4L*  ^vU  I#  «*•>,  CH.  » c«»*l#  pi  o,  ••« •*.  , P 1 01# 

71  1 70*  P>0#»»)OL#P  tO  \ 


7 1 l 40  PR14T  100#  »4*A4#  *4-:A4L# '4vU  I#  «*•>,  Cl*. » c«»*l#  pi  o,  .»f  •*.  . P 1 01# 

71  1 90*  P>0#»»)OL#P  >0  I 

7ii  ah  o^h  r 107#  14*>kj<#c  pkwh 

71170  GU)  999 

71 1 HOC 

7I190C  9S « Cl4FinP4C£  1 4 r£3tfAL  tc  43T  WITH  I 4 1 * It  A*  M 4=144  A4‘)  90 
71 2004 

712100  '/AL«I£S  — TMFRFF3RP  1ATA14  7 Ai)Di  T M 4 V CA^L^f 
71^20  61  1 CH=IC<  “ t 0H» C< ♦ 7 

VI 23)  «*:rjW4 

71 240C 

71?  70  46  Fl94Ar</*!4P'ir  WKA4  440  CTA4IAA0  9-:vlATM4  F It  F)f*#f> 

71240  07  F^R4AT</«1  4PMT  WFA4  A40  <TA4i'A*>  KVlAriH  FJ-?  S«#  f ) 

71290  90  ►MR4ATCF9.2#  FI  1*2#  FI  0*  2#  Ft  4#  3> 

7tJlO  92  F3R4AT<F9* 1# FI  1 .2# F10.2# Fl 4« 3> 

#1370  */6  F3R4AT<///#  SX#  *F  )Y«#  9<#*S«#H<#  *PSJ«#  6X#*C  1LLABS-:  IHtO 

71360  100  F3R4AT<///»  1 | X#  • $TAT!  STI CAL  OBIPFRTKS  *c  !4CtDlF4r  •>**«» 

71370*  //#09X#*9S^  C 14FI  0F4Cr  L T *t  TO*  • / # 7< • *1  T~  4«  # MX# 

11340*  •VAU’IF  LO  **R  «|PpF^«,//#*  4*.A4«.  FP9. 2# 

71390-  2F12*2#//»*  S IA40ARO  l)FVt  AT|1 4 *#  Fl  •*.«#  2F|  2.  2* /'# 

71400*  • 102  PR33ABILITY  V/Al.UF*#  3FI 2*  2# //# 

71410*  * 902  PROBABILITY  VAL  «»£%,  OF  1 ?.  ?) 

7!  420  10S  F3RHATC//»S<#  •4»WBFR  3F  343F.RVATI  HS  **#!3#/.7X# 

71430*  *CTA4l)AR0  FRR1R  **#F7#2> 

71  440C 

714S0  999  ^T1P<  r40 

71460  Fil'ICTl  34  X41R4  1 { <#  A#  R> 

71473  I F(  X > I 0#  20#  20 
714K0  10  X0s2A4F<-l #0) 

714)0  20  X l c RA4F  C 0#  0> 

/l  S00  <2»RA4FCfl.O) 

71  bl  0 Y*SOAT<-2#0«AL  )A(X1)  )«<C35<  6*2431  4 4* X2>  ) 

71  S20  <4  »rwi*a*y*b 
7IS30  RCT1JR4 
7 1 740  F 4 •) 


1 1 3*>o 

71360 

71370* 

M 040* 

71390- 

71400* 

71  410* 


B 


*# 


I 


PROGRAM  RCSUAB 


00100  PR9GRAM  RCSL4B1  < ( MPUT.  3UTP<JT.  T4PE1  > 

00105  CALL  RETR<7MRCSLA82»7HRCSLAR2> 

001  IOC  * THIS  P3RTI3M  3F  THE  PR3GR4M  1 1PijT5  THE  REO'ttPEO  ELEMEMT  AMD 
OOHSCt  LAAO  DATA  AMO  IM1  TIALtEE*  CERTAIN  PARAMETERS  « 

09I20C 

00150  C3MM3M  R IRC#  LOTTIE.  RRF,  R RAMO.  TIME.  1.  T * ROW  0.  O'l.  TO.  rFAIL. 

00152*  ELS.  ELL.MS'.PV.FPC.FDY.  ICASE.M3R4R*  45*  47.  APS* 47.  !7*  A).  DP*  47.  FOC. 
00154*  EC*E5*  R.4LP.ALP2.4PE4.  EMASS.  VF41L.  ERLM.  v4.1  »1A.2»  VSI.VS2. 

00155*  MEMB.ASCL.  ASCS.VCL.  VCS.ASS.  3SS.4F.BF.CF.MR. 

00‘ 56*  W.P3.C3.L3C.S.  ELEM.CD.PS3.PD3.PR.PERT.PC.  TC.TO.DEL'**'. 

0G155*  MMIM.RH33.  V3.LI.  AA*  A.  23.  MM*  A »>  4FBVIT.  ASl  9E.  G.  G2»  G3»  G4.  Ps-2.  Of 
001  <0  L3GICAL  LI 
001  JSC 

001  70C»  READ  TITLE  AID  C3MTREL  PARAMETERS 
OOITS  PRIMT  67 
00150  READ  AM.  TITLE 
00155  *RMT  55 

001  AO  READ*  RlMC.LPTYPE.RAF.R  RAMO 
001*5  00.47-0 
00200  VF**1L«IE10 

30205  *7  r»(WAT*/«lRPUT  TIILE«.«> 

00230  65  F85M4T*43*7 

00215  55  FORMAT*-**  I MPtJT  R I MC.LDTfPE.  RRF.RRAMD*  I »MAM034>«»  • i 
00234C 

00236  4 03  5 l-l.<  4 
00235  AS*  tiaO 
00240  5 C8MTIMUE 
OOf'IJC 

00244*':  • IMP'JT  AMI*  ECHO  SL4A  AMD  RSI MF2RCEMEMT  PR3PERTIE?  •» 

00246  PBIMT  61  J 

G0245  BEAD. ELS. ELL. «?• FPC. FOf. I CASE. M3BAR 

00250  FflCa l. 2 54 FPC 

00252  EC*  5761 R.  0- SORT*  FPC ) 

00254  S5-2AS6 
C0256  ABCA-ELS-ELL 

00255  ECR5P«CC/1000S  ES<iP»S«/ 1000 
00260  R-EU./ELS 

00362  4I.P-1.0/5S  4LP2-4LP-4LP 
00264  IF*IC4SE.LE.4>G«T3  II 
00266  B-01  ALP-OS  4LP2-0 
03145  II  PRIMT  670 
00270  91  5 1-1*4 
00272  PR!  MT  625.  5 

00274  BEAD.  AS*  J > . 0*  I)  . APS.  1 1.  OP*  I * 

00276  t Ft  t. HE.  HOSTS  3 
00278  08TS*5.5.8.  5.  *»  7.  7>»  I CASE 
00280  3 08T8<*»5»  7.  6. *•*.*>.  1C*SS 
00282  6 IF*I.E9*3>0»T5  ♦ 

00284  08 T8  8 

00286  7 1-1*1 

00288  8 C8MT1MUE 

002*0  * CJMTIMUE 

002*2  PB1MT  71 1 

002*4  5EA0.MEM8 

002*6  IFtMCMi.ME.  I >OiTJ  15 

00300  IF*  ICASC*  OT*  47  0878  13 

00302  PB1MT  701 

00304  BCAO.  ASCS*  A3CL 

00306  ASCL-ASCL/12.0 

00308  QST8  16 

00310  13  PBIMT  706 

00312  REAO.ASCS 

00314  ASCL-0.0 

00316  16  ASCS-ASCSE 12.0 

003I8C 

00320C*  ••••••••••••••••••••••••• 

00322CS  • DETERMIME  0EFLECTI8M  AMO  M85EMT  CSEFFICIEMTS  • 

00324CI 

00326C 

00328  15  ?MASS-130.0-ARE4-HSE<384. 07-1725. 07 

00330  PRIMT  620.  t CASE*  EL 5.  ELL.  HS.FPC.  FOC.  CCA  IP»F0T»  ESR  SP 

00332  -RIMT  630 

0 0 334  08  119  1-1*4 

00336  tF(A$(tl.E-).0>G8T3  110 
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;«ossam  rcslab  (cont'm;ed) 


ri'IJV  »i4«(  |>/'|?0*-)<!>l  i ws>P<(11/(l<!.o«0(in 

00340  PT147  641.  I.AcC  1 l..»,  0(  I >»APS(  I >.«P.  0P<  11 

oo34?c  C444C*:  -miia  j*  ppi iM*»c*4^4r  t>»><  so.h./pt  t»  " . ■ <• 

0.3344  •,f(|)m<;(n/|i>.0  * APS<  l I * APS<  I if  1 2.  0 

oo3«A  i io  capri  4.jc 

■3-7344C 


1036' 1 •,CU»'2»<»-(4  6.IPT{P'JC)/<  « -r«0<  I )//LS)*30l)0*C  AS(  I >/!)«  I I >/  > i-  )f  I »/'(.'■> 

oo'isi  rfa.^4x«3.->«si4r<»pc)/< i .o-;?.o»i){  1 >/-:ls> 

!*  v v.  f i r c vex . gt.  vcl ia<  i veu * vo„ia< 

•»<>■«>.*  ip< scasc. or. 4*0171 

oo  >6<s  vcw.iM'ri-cfi^pci/i  i -2*or>>/  *ll  i»300.i*c  am 2> /'>»*>  */<  i-ocn/  »i.i.  i 
no'66  VC  *4A<*3.  6*S0RT<ppc>/'  I .<>-2.  o«v'?>  / 'LL  > 

1 13-><.  i p<  vcs<  or.  >*<:<; -»4<  i vc°»  vcc-iax 

17767  79J47  6-C}.  VCU.VCS 
r>C>3SP  GIT'S  ?C 
■50360  30  ®P14T  64  6.  VOL 
O'*  1«  33  C34T!  '*«J*C 

00  364  G4I-L  C«p"<  ICAf-1..*!.  ASt-ASK.  AP,  OP.O.  0.  *LS»  /'-L»»V.  43.  CP.  PC.  I ) 

00344  614  P1?M.4T</«1  4--JT  C^/U-.AS.  r,Cf  for.  ;c.4?p.  4 14A4«.  f > 

0336®  433  P394AT(«140':T  A*.  0.  A •?.  *0*  *'1P  4PCTI  144.l2.il 

oojto  oao  F0344T<//«o3.ip-pr{‘-:«  i*  p*  i jf.ipcro  c.ivcpcix  slap 

3037,;*  « S'lPP.IPT  ffPC  H.*.!2./r 

0<)31-»*  • Up  **.P6.<.«  14.  ' **.F6.|»*  l4.«»6«.*H?  = *. 

00374*  P6.  1 » * 1 4.  • , /,  * f •<:  s*. >7.|.*  “SI  POC  S4.P7.1. 


•'03  74* 

00333  430 
00344* 
0034  4* 
00344  440 
00340  4 70 
OOJ78  64} 
10344  444 
10376  701 
00344* 
00400  704 
00 <03* 
00404  7|| 
00436* 


« 031  •»,  44.  “CC  *«.P7.|.*  <St*./»4  POT  **,P-C.|,*  “'!•» 

13>*SS  «».P4j l . * <SI»! 

ri“44T<//4PP14H9C?.«IC4T  VAI..KS*'*  SCCTI  U AS  <P1*. 

44.40*.44.*A*4  (P’t*. *3, *>>*•./, 33,4(33  I 4 • /F  7 >4.  103. 

• <14. 1 ( SO  M./.'T>*.I03.*<1'J.>*1 

*‘344»t<  l 3.  * I 1 . 4.  * <.,P4.  4,  «)*,►•».  3. PIO.  7.4  ( •,  »6.4»  • ) •.  pv.  3) 

pipiatcm  > 

P104A  Tf/4','(,3.  3*.P6.1,«  PCI  ire  3*  , ?6.  I . * PSI«1 

P1P4AT(/«VCL  3«.P4.|.*  »si«l 

P3P4AY(/*1  IP-ir  C34T>4:j.lO<:  4-:i4PlPrF4P4T  PAPALCd.  T1  • » 

•4H1ST  A40i  ./.  «U  14.;  S**A4S  (?0  ! 4./rr>*.»  > 

P 1P4A7C /•  I 4P'IT  C»47l  4150$  PC!  pPlACCOPp  r PAPAUuPi.  Tl  ». 

•S-»1«l  4PA4  <S0  IP./PfM.tl 

PlR4or«/*C*  T*:P«tUP  4 ■’ 4 PPA4  C 71  PP  I4CL'D*0  <0*411*. 

• | . ) 


00364C 

30470(1  I4»0(  UJA.)  »4P44PT€P4 

07671  IP(U0T7PP.P'J. 61(731*1  20 

00c  'ac  L1CAT1  14  1.  PPC4T  PACP  U 1A01  40  CISCO  14  71 34*  F |UL  I 4 G »4  ICCIOPC 
00476  ico  j*;ooa.o  s pi.i«.  : * oiMiao.o 
00674  I P<4 “P. 4C. 1 1 OITt  102 
.70340  U1C*1 

■J0442  !P(<RA4..P7.|  IG»TJ  136 
0 0 444  **41  4 7 4t>0 
00646  4PA:s.  S 
00444  GIT*  104 

00640C  L1CATI34  ?.  TIP  PACP  U1A014G 
00642  I 1?  C0*0  S LJC*  ' 

00474  ’LP.7«'LSTI2.0 

00600  SOS  IP(<I  4C.C0.  I iGin  106 

O') 60  3 PAlIT  610 

00610  VPA.7.P3-1 

0061  5 WP*7.0«“S1«(  7.0»P1.4.0*»*:i)T<  T.0«A7»PS3) 

00620  600  p IP  4AT(  T*  I 4p:JT  S*.t) 

00630  410  P144AT('«(  4P'I7  »VJ*.t) 

006360 


11640C  * I4PJT  P)  14- PILL  I *"■  041A4PTP1*  • 

00641  1(76  I PC <PP.  41. 01  " 111  70 

03440  10  OPI4T  7, -JO 

10652  P433*0.344  3 l.l*.PAUSK. 

00663  0O.Ar»lP10 

00646  7PAI).  4V.I  4.  VI 

00660  «r»OS  APP34T*04  A«10P»0 

00666  02  IP  I»1.4U14 

00670  PPI  4T  710.  t 

00676  PCAO. AA( I . 1 l.44( I I. AA( 1,21 
00640  AA(t.2)*AA<I. 21/1000.0 
00646  AT»*T*«A<  I.  1 1 
00610  4*44<t)S  G3TK  12.  1 A.  1 41.4 
3 1476  12  APPI4t*APP  )4T*AA<  I . 1 1 


3 


/ 

| 

"I 


I 

ji 


I 
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PROGRAM  RCSLAB  (CONTINUED) 


00700  G8T3  IS 

00  705  1 4 4SIDE*4SI0E*44<I.I> 

00710  IS  IF!4A<I.2).LT.DELAY>  DELAY  *44!  1.21 

00715  4FR34T*AFR74T/ATS  AS!  0E*AS1  OE/  AT 

00  720  700  F344Ar</*t4P')T  4WI4  440  R334  4JLIHE  fCF)*»t> 

00730  710  F30M4T</*t4Pirr  AREA  (SO  FT)  .L3CATI 34  C3DE  t DELAY<4S£C>* 
00735*  * FOR  Wl  4D3W*.  12.  * ) 

00740  G»1.4  $ 02*|./r,  S G3*|.-G2  % G4*2./G3  S G5*  G*  I . 

00  750  PP2*.I9|2 

00755  C*S0RT<G*P3*32.*I44./RM33) 

00740  T4U*2.*<  V3*«<  1 ./3- > >/C 
00770  0T*T4U/4.0 
00  775C 

00740  20  C34TI4UE 

00910  25  CALL  CHAISCRCSLA82) 

0091  5 99  STOP 
00420  £«0 

00430  SUBR3<IT«4E  C3EF<  I CASE*  R.  ASS*  BSS.  AF,  4F>  I , *L  9*  ?LH»  P V.  94*  CF. 


008 3C* 
00434CI 
00436C: 
004 34C 
00940 
00842 
00444 
004 46C 
00448 
00450 
00452 
00454 
00856 
00454  4 
00460C 
00862CI 
0044*  20 
00666 
00910 
008  70* 
004  TP 
004  7* 
005 760 
008  740 
30440  30 
00842 
00444* 
00886 
00494* 
00890 
00892* 
00894 
00896C 
008980 
00900  40 
00902 
00904* 
00906 


E.IE4TRY) 

THIS  SUSSa-HtSE  DETER4I4ES  414E4T  A40  DEFLECTI34  C3EFFICIE4TS 
F3R  34C-/4Y  < CASES  5*7)  44D  TW3-WAY  CCASES  l-4>  ELE4E4TS 

REAL  I.4P8.4PR  ),4'J 
4X*I 

tf(  lCASR.r,T*4>  .3T3  SO 

R2*R«R 

R3»R*R2 

84*42*42 

ASS«-. 00  70  30*. 0 1 3490* R- * 003456*42*. 00028 6*R3 
9SS*-  • 0 54  3 32*  . I 393 1 4*8-  . 035609*  R2*  . 0030 1 6*R3 
G3T3<4|.20.30.  43).  ICASC 

COSE  2*  FIXED  34  F3l’R  SIOES 
XX*  3 

AF**. 003430*. 00 7327* 4-. 003365*42*. 000664 4*43-. 00004766*84 
BF»*  . 1 0 1 1 50*  .2604  -»5*  R-  • l 38942*  R2*  . 034677*83-  . 00405  6*  R4 
<>. 0001  70*R*«5 

CF».  I 674*. 3554* 4*.  I 71 4* 42*. 028 6*R3 
t»T3  41 

CASE  3.  FIXEO  84  SM3RT  SXOES*  5I4PL"  SUPPORTED  34  L84G  SIDES 

4X*4 

AF*. 00451 3-. 01 7525*8*.  023045*42-. C 10325*83*. 00218 7*84 
- . 0002208*8** 5 * . 000008  409*8* *6 

»F*-.  1 22|  49*.  31 3445*R-.  I 539  79*  R2*.  0361 92*83-.  0040 1 5*84 
♦.0001 646*8** 5 

CF*2.|958  - 7.  7564* R»  1 0. 9 376*82-  7.  249 5* R. *2.  344*84 
-.2954*R**5 
08  T9  41 

CASE  A.  SI4PLY  SUPMRTED  34  S434T  SIDES.  FIXEO  84  L84C  SUES 
4X*3 

AF*-.  002765*.  00;.652*R-.  005698*42*  1 001 829*R3-.  0002859*84 
♦•00001  739*R**5 

9F*.  .060320*. 256515*8-.  I 756*4«R2*. 057928*83-. 009227*84 


00908*  *.000569* 8* *5 

00910  Cr*5.898  7*8- 1. 6669- 7.  93989  82*5.  3142*83-1. 7623*  84*.  *31 3*8**  5 
009 | tc 

tF{R.GT.2.0)CF*t  .0/12.0 
8ETU84 


00914  «l 

00916 

009I8C 

00920  50 

00922CI 

00924 

00926 

00928 

O093OCI 

00932CI 

00934  60 

00976 

00938 

00940 

00942 


C84T14IIC 

CASE  5.  24E-W4Y.  SI44LY  S'JRP3»TED 
ASS*  5.  0/38  4.0 
BSS*0. 125 

08T3C2  70.270.  270.  270.  270.  60.  70).  I CASE 
CASE  6.  84C-WAY.  FIXED  ENOS 
CASE  6.  24E-W4Y  FIXED  E40  WALL 
AF*  | .0/38  *.  0 
•F*|. 0/12.0 

cr*t.aM2.o 

4X0 

4ETUR4 
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PROGRAM  RCSLAB  (CONTINUED) 


00944C 
00946CS 
00948  70 
009SC 
00952 
00954 
00956  ?70 
009  55 


CASE  7.  3NE-WAY.  PROPPED  CANTILEVER 
AF=|. 0/155.0 
5F*0* 1 25 
CF*0. 125 
NX  = 3 
RETURN 
ENO 

01000  '2GMENT  RCSLAA2  1 1 NPUT.  OUTPUT.  TAPE|  5 

01010C  THIS  SEGMENT  CALC*JL  ATES  THE  RESISTANCE  FUNCTION  AND 
0I020C  L3ACING  ANO  S3LVES  THE  QY  NAM 1 C EOJATIONS  3F  M3T13N 
0»  030C 

01050  COMMON  X1NC.LDTY°E.  XRF.XRANO.  THSi  I.  YI5D5,  0.  DU.  YU.  TFAIL. 

0 1 052+  ILS.  TLL.HS.  PV.FPC.FPY.  ICASE.VORAR.  AS!45»  AP$t4!»  01  4) » DPI  4).  FDC. 
EC.  ES.  R.  AL°»  ALP2.  AREA.  /MASS.  VFAIL.  z.XLM.  VL  1 . VL2.  VS|  , VS2. 

MENA.  ASCL.  ASCS.  VCL.  VCS.  ASS.  5SS.  AF,  HF»  OF.  NX. 

U.  P3.C3.L0C.  5.TLEN.C0.PS3.PD3.PF.PEXT.  PC.  TC.  TO.  DELAY. 

NWIN.  RH33.  V3.L  I . AA! 8.  25  » NN! 8 5.  AFR3NT.  ASIDE.  0.  G2.  03.  G4.  PP2.  OT 
01076  COMMON  /SAR/  SAREAg, SAREAL 
01075  C3MM3N  /RANO/  TIMEC 

01050  DIMENSION  A!805»Vt505.Tt90>.VSt805,VL!505»PN!805 
01 100C 

01250  IF<<INC.NE.1.3R.L0TYPE.£0-5>CALL  F3RCE!  I > 

01260  14  IFIHRANO.NE.  15G3T6  35 
CALL  FORCE!  45 
CALL  RANDOM!  1 > 

CALL  RANLJMI2) 

CALL  RESIST!  3) 


0>0S4* 

01055* 

010S6* 

01058* 


01270 
01280 
01290  34 
01300  35 
01310C 

01320CJ  MINIMUM.  MAXtMUM.  ANO  STARTING  VALUES  ARE  DETERMINED  F'3R  CASE' 
0|330C«  WHERE  THE  LOAD  CAUSING  INCIPIENT  COLLAPSE  I ' TO  RE  P3i|ND 


01  340 

13 

IFT8INC.E0.05G3T3  23 

01350 

°F*04J 

01360 

pfmax*o 

01370 

PFMIN=pF/2«0 

01380 

GJT3  20 

01390 

16 

PF>(PFMIN*PFmAX5/P.i 

0 1 400 

20 

CALL  FORCE! 25 

0141=) 

23 

IF(XRF.E).05O)T3  24 

01420 

CALL  FILLIP! NT.  25 

0 1 430C 

01440CJ  INITIALIZE  VALUES  F3R  RETA  METH3D  CRETA  * |/6>  AND  COMPUTE  VALU 
01450CS  F3R  FIRST  TIME  INTERVAL  ASSUMING  ELEMENT  INITIALLY  AT  REST 


01 

460 

24 

1*1 

01 

470 

TIME=0 

01 

480 

T!  1 5*0$  V!  1 5*0S  Y!  1 5 

01 

490 

0ELTA*0.001 

01 

500 

I Ft  XRF-NE*  1 5 G3T3  30 

01 

510 

27 

I Ft  TIME.  GE. I DELAY-  • n 

01 

520 

T I ME* TIME* OEL  T A 

0! 

530 

CALL 

FILL! PINT. 35 

01 

S40 

03T3  27 

01 

550 

I F( Yt 1 5 *02. Y FAIL 5 PR I N T 71 

01 

640 

30 

CALL  RESt  ST! 25 

01 

650 

A!  1 5*0.0  S VS!  1 5*0.0 

01 

660 

T!  1 5 = T1  ME 

S VL! 1 5*0.0 


" * 65  OC 

0 1 690Ct  PR3CE0IJRE  F3R  ALL  SU8SEDUENT  TIME  INTERVALS 
0 1 700  1 I * I ♦ I 

01  710  IFU.LT.51  ) 03 T7  I 1 
01 720  PRINT  99. TIME 

01730  95  F3RMAT(/*t»5U  TIME  »!.FS.3.«  FftiLu  E ASSUMEO  T3  NOT  3CCJR»> 


01  740 
01  7 SC  11 
01  760 
01  770 
01  775 
01  750 
01  790 
01800 
01880  10 
01890 


G3T3  6 

TI  ME* TIME*  OEL  TA 
Tt  I 5 *TIME 
A(I)*A(I-1) 

I Ft  ■< RF.  NE.05  GOTO  10 
CALL  F3RCEI35 
PN! 1 ) *PEXT 
03  T3  2 

CALL  FILL  t PI  NT.  35 
PNT l 5*P1NT 


01910  2 C«NTtNUE 


01920 


03  8 J I?  1 . 1 0 
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PROGRAM  RCSU8  (CONTINUED) 


01930  YCll*YC  I-ll*OELTA«V(  I-|  1*  DEL  TA*  DELTA*  C AC  I-  J 1/3*  » AC  17/6*) 

0(940  call  resistc2i 

01960  4 ANEU*A8£A«CPN(I1-71/(ENASS*E<LM1 

01970  AD£LTA*AN£W-ACtl 

01980  AC  1 1 * ANEW 

019BS  IF!  ANEW.  E0.01ORINT.  « 1985*.  TIME#  PNC  ! > > 0»  'MASS,  t-CLM.  Y<  1 1.  AC  I- 1 1 

01990  IF(A8S(AO£LTA/CANew»lE-1011.LT.0.011G3r3  9 

02000  A COMTI  MIJE 

02010  AUlaANEW-ACELTA/2.0 

02020  PRINT  80.TtME.PF.ACIl.YCll 


CONTINUE 

Y(  1 1«Y(  I - 1 1*  DELTA*  VC  1-  1 >♦  OcLTA«OELTA«C  AC  I - 1 1/3.*  AC  1 >✓  6.  1 
VC  1 1*  VC  C-l  1*0£LTA«(  AC  !)♦ AC  1-111/2.0 
VSC  I >sAREA«C  VS1  ‘Px!  n»v£2«7) 

VLCI1*AREA*(VL1«PMCI}*VL2*0> 


02030  9 
02040 
02050 
02060 
02070 
02090C 

02100CS  CHECH  F3R  MAXI  AIM  OEFLECTUM  3R  FAILURE  3F  HALL 

021  lOCt  IF  MAXIMUM  0EFLECTI3V  .ACHEC.  ELEMENT  010  M3T  FAIL 

02120  IFCYdl.LE.YC  t-tl. A'  >N(  11  .LE.  PMC  I-  1 1 1 G3T0  6 

02130  IFCYCI1.LT.01C51T3  6 

02140  I FC  TI ME-OEL AY*  OE. 0. 0 1 01 0ELT4«0. 002 

02160  IFCTIME-OELAY.  GS.0.020)  D£LTA*O.OOS 

02170  IFCTIME-OELAY.  GE.O.  1001  0ELTA*0. 01 0 

02180  IFCTIME-OELAY*  GE.O.  5001  DELTAaO.  050 

02I90C  IF  FAILURE  0EFLF.CTI3M  REACHEO.  WALL  FAILED 

02200  IFCYCI1. GE. Yf  .IL1G3T3  7 

02210  G3T3  1 

02220C 

0223QC1  IMTERVAL  HAL VI MG  PR3CE0URE  T3  OETERMIME  LOAD  CAUSING  IMCIPIEMT 
0224GCI  COLLAPSE  FOR  CASES  WHERE  0ES1RE0 

ELEMENT  DID  M3T  FAIL  — SET  PFMIN  T»  PF 
CONTINUE 

IFC-CINC.E1.01G3T3  18 
PFMINaPF 


022S0CI 
02260  6 
02280 
02290  36 
02300  I FCPFMAX. GT*  0 1 09 TO  16 
02310  PF»2.0*PF 
02320 
02330CS 
02340  7 
023S0 
02370 
02380  37 
02390CI 


SET  PFMAX  T3  PF 


CTT3  20 

ELEMENT  FAILED  — 

C3NTINIJE 
TIMEC-TIME 
IFCXINC.EO.Ol G3T3  18 
PFMAX=PF 

CHECH  T3  SEE  IF  LOAD  RANGE  IS  W (HIM  DESIRED  ACCURACY 


IFC CPFMAX-PFMIN1/PFMIN. GT.0.01 1 G3T3  1 6 
IFCKRANO.NE.l  1G3T3  18 
CALL  RANDOM! 31 
Ga TO  34 


02400  17 
02410 
02420 
02430 
02440C 

024S0CI  OUTPUT  DATA  INCLUDES  THE  MAXlMipN  DEFLECTION  AND  TIME  OF 
02460CI  OCCURANCE  FOR  A N3N-1AILING  WALL  3R  THE  TIME  AND  VEL3CITY 
02470CI  AT  C3LLAPSE  FOR  A FAILING  ELEMENT-  3PTI3NAL  3UTPUT 
02430CI  ENTIRE  BEHAVIOR  TIME-HI ST3 RY  OF  THE  WALL. 

02490C 

02500CI  3UTPUT  LOAD  DATA 
02SIO  18  CALL  FJRCEC4J 
02520C 

02S30C1  OUTPUT  FINAL  -ESULTS 
02S40  tFCYCIl.LT. YFML1PRINT  7U.YU1.TCH 
025S0  IFCYCI1.GE.YFAIL1PRINT  71.TCI1.VCI1 
02SS2C 

025S4  PRINT  90 

02556  READ.HFILE 

025S8  I FCM FILE.  £0*0' GOTO  40 

02560  PRINT  95 

02562  REAO.NAMEF 

02564  CALL  PFURC  3HRET.  1 . NAMEF1 

02566  WRITE!  l»  1 SAREAS.  SAREAL.HS 

02568  WRITECI.lt 

02570  WRIT?*!.  1CTCI1.PMC  II.  VSC.il. 'A-C  II.  UI.I1 
02574  CALL  PFURC 3HREP.  l.NAMEFl 
02576  40  CONTINUE 

02578C  CHECH  T3  SEE  IF  ENTIRE  TIME  -HI  STORY  IS  OESIREO 
02580  PRINT  72 
0259(1  REAO.M 


I 
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02*09  £F(4.EO.O)G3T3  25 

H2630  KRHT  76.  ( I(  I ) »P9<  I >»  A(  I >»  V<  I).  Y(  £>»  9S<  £>»  VL(  J >»  1 = I • I'  ^ 

02*90  25  PR£9T  77 
92  710C 

02740  70  FIRMA?!*^!  FAfL'NF  - HAx.  OKFLF.CT! 39  3F«.F6.2. 

02750*  * £5.  REACHED*.  F7.  3.  « SEC*  > 

027*0  71  F3R*Ar</«FAlL!)9E  JCC'JHRE:)  AT«»F7.3.«  SEC  C f via*.  VELOC!  TY  »•» 
02770*  F7.2.*  £9./SEC)*> 

027*0  72  FI^-tATC/*! c rf9S  HIST1RY  OESfREO  <YES-1»  9330>«.»> 

92.130  76  F 3 RMAT(  / * TIHE  PRESSURE  ACC2LERAri39  9EL)C£TY  * 

02940*  *0T  SPLACSME9T  VS 

OPR  50*  1 F6.  A,  *••*.  3.  FI  2*  1 < rt  2.9.  *1  >.  4,  FI  t • 0>  FR.O)  > 

*0  77  F39HAT<///.  7<  — -♦>> 

92*70  SO  F)RV  Ar<V«ACCELcR4Tl  19  93  7 CUVERwl*  AT  TIRE  3*»F6.3» 

02SS0*  * SEC  CPF  i».F7«3»«  PSI>»/«  AU>  SET  ETIAL  T3*» 

•J2S90*  Fsl|.*  CAOG  if  CAST  2 ITERATIVE)*/*  Yt  l>  = *» 

(.2930*  F2.4»«  !9.*> 

02930  90  F7  2*4Tt/»4oE  REACTI39S  T*  8E  3UT°UT  T3  FILE  1 0*93.  I * YES)*,  * > 
02V 4u  95  F3»9A?f /«£  JPnT  9AHE  nf  SLA8  ‘tEACTt  39  DATA  F!LE*»*> 

029*0  99<*  ST3P 
924  70  E90 

10000  S'I9°J*ITI9E  F3>Cc<  ! E9fPr) 

10010C  THIS  S0*91':rl9C  I9PUT?  THE  L3A0  PARAMETERS  A90  0ETERH9ES 
10020C  THE  LJAO  AT  A C»l  vE9  T!  HE  *32  THE  FOLLOW!  9 3 LBAO  TYPES* 

I0030C  I.  JDEAL1-E0  SLAST  L2A0  CFR39T  2*  SIDE  FACE) 

10050  C3M939  X£9C»L0TYP!:»XRF».<«A9!)»TtR2«  I * Y(  30 >»  1»  9 J»  Y'J.  YFAIL. 

10052*  ELS.  ELL.HS.PV.  FPC*  FOY,  ICASS.  92 BAR. AS < 4>  * APS<  «>»  CK  4>*  0P(  4)  * FOC. 
10354*  EC*  F.$»  »»  AI.P,  ALP2.  AREA.  *RASS»  VFAIL.  EHLH*  VLI  * 9L2.  9S1»  VS2. 

1 0055*  ME*H.  AS'X>  ASCS*  VCL*  «CS»  ASS*  RS5.  AF.  AF.  CF.  9x. 

19056*  w»Pa#C3*L1C.S.ELE9.C!)*PS3»p93»PR*P.°C.TC.  TO.  D-  .AY. 

100*3*  9WI9.  RH33.  V3.LI  . AA<*»2>.  9 9(H).  4FR39T.  AS!  0E»  G.  G2.  G3.  G4*  PP2.  OT 

100*0  0IHE951 39  TT(20).PP<20) 

IOOHOC 

10130  irfl.9rvFE*E3.5)  G3T3  5C0 
10143C 

1C150  GAT3C  21  5.  2CQ*  390.  ..>.|F9TRY 

(none 

I101CC  CAl.Ci.ATE  L3A9  PROPERTIES  FJA  e*  ..cm  p£A<  PRESSURE 
11030  200  **3T3< 20 >* ?1 0> *L3C 

I 1040  205  P*3«(PR-  1 4.0*93*  SART!  19*.  0*P3»P3*  1 9*»0*P3 «PR*PR»PR»>/1  *-0 
11050  GOTO  215 
1 10*0  210  PS9=PR 

11070  215  p03»2.5*PS3«PS3*1 7.0«P3*P33) 

I 1030  U»CB*30AT»  I .0*<6.0«FS3)/<7.0»P-3>  > 

1 1090  T0=»w**0.  3333' <2*  2399*0.  1S36*PS2> 

1SSC0  0373(220.225). L3C 
11110  220  TC*3.0«S/'J 

11120  PC*PS3*( 1*  TC/T01 *EX°< -TC/ 10)*P01*< 1-TC*T0)«*2»EXPC-2V TC/TO) 

11130  CD*  1.0 

11140  ESTHER 

11150  225  TA*7LE9/»I 

11160  TAScTA/2.0 

11170  TA2T03TA2* TO  ^ 

111 po  PA=P?1*(1-TA2T0)«EXP<-  TA2.*0)*CD*P033(  l'T42T0)«»2»EXP(-t*  >A2T0) 
11190  RET'IRM 
| 20-90  C 

J2010C  CALC’lLATE  C3»9 
12030  300  (BT2<30S.310).L>C 
12040  305  TT0=T!  HE/TO 
12050  I F(  TIME*  GT«  TC)  G3T9  320 
12060  P*PC*(TC-T!3E)»(PR-pCI/TC 
12070  R.ETUR9 

12030  >10  TTO»<TIHE*TA2)/T0 
12090  ?C(T!3E.GT.TA)G3TS  320 
12100  p*PA«TI9E/TA 
12110  RETUR9 

12120  320  t E( TTO. GE. 1 «0)  G3T3  330 

12130  9*PoO* < |-TT0>«EXC('  TT01*C0*POA«< t-TY0)**2»EXP<*2»TT01 
12150  RET'IPN 
12160  330  P*0 
121 70  RE70R9 
1 3000C 

13010C  PR15T  '..BAD  DATA 
13020  !F<<£9C.E<;-0:^3T3  490 
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PROGRAM  RCSLAB  (CONTINUED) 


13030  PRINT  640.L0TYPE 

13040  GOTO  410 

13050  400  PRINT  645.L0TYPE 

13060  410  CONTINUE 

13070  415  GO  Tit  420»  425)  >L3C 

13050  420  PRINT  650 

13070  GOTO  430 

13100  42S  PRINT  655 

13110  430  PRINT  660.  W.P3.  CO 

13120  IFtXRANO.NE.OlRETUPN 

13130  O0T3t43S.  4401.L3C 

13140  43S  PRINT  66S.S.TC.PR 

13150  GOTO  445 

13160  440  PRINT  6 70»  IL  EM.  T A.  PA 
13170  445  PRINT  675.  U»  TO.  CO.  PSI.  PD3 
I 3150  RETURN 
13500C 

1 35I0C  LOAD  TYPE  5 --  ARBITRARY  LOAD  SHAPE 
13520  500  GOTO!  51 0.  520*  530. 540). ! ENTRY 
I3S30C 

I3S40C  INPUT  LOAD  DATA 
13550  510  PRINT  650 

13560  REAO.NPOINT.tTTt Jl.PPt  J), J*1.NP31NT> 

135  70  FACTOR*!. 0 

13580  IFtKINC.E0.0)G8T3  510 

13590  PHAX*PPC 1 1 

13600  M SIS  J*2»  NP3I  NT 

13610  515  IFtPPt  Jt  .GT.PMAX)PNAX*PPt  i> 

13620  518  PX«PPC2>-PPtl> 

13630  TX»TTt2)-TT<IJ 
13640  Jl*l 
13650  RETURN 
I3660C 

1 36  70C  CALCULATE  MAXIMUM  L3A0 
13680  520  FACTOR*PR/P«AX 
13690  WTO  518 
13700  RETURN 
I3710C 

I3720C  CALCULATE  LOAD 

13730  530  IFtTINE.LE.TTt  )I»I>>03T3  535 

13740  JJ«JJ*1 

13750  PX*PPf JJ*l)-PPfJI) 

13760  TX*TTf  JJ*U-TT<7J> 

13765  lFtTX.EQ.O>TX*IE-10 
13770  GOTO  530 

13780  S35  P«FACT3R*tPPf  JJ)*tTINE-TTt  )l)>*PX/TX) 

13790  RETURN 
13800C 

1 38 IOC  PRINT  LOAD  DATA 

13515  540  IFtHtNC.EO.  1 > PR! NT  640.L0TYPE 

13820  IFtK INC. EQ.O) PRINT  645.L0TYPE 

13825  PRINT  690 

13030  03  S45  I*1.NP3INT 

13840  P»FACT3R*PPtJ> 

13eS0  545  PRINT  69S.TTtJ).P 
13860  RETURN 
1 4000C 

14070  640  F0RNATf/*l.3AD  CAUSING  INCIPIENT  FAILURE  IS  AS  F3LL3 W5t*» 
140  71*  /#SX.«L3AD  TYPE  MUN3ER*»I2> 

14080  645  F3RNATt/«PR8PERTIES  0F  L3A0  ACTING  0)  ELEMENT  ARE  AS  • 
14081*  • FOLLOWS! *./.5X»*L3A0  TYPE  NUMBER*.  1 21 

14090  650  F3RNATt0X.*t FRONT  FACE>*> 

14100  655  FORMAT!  SX.  *t  SI  OE  OR  TOP  FACE)*) 

14110  660  F3RNATtlOX.*W  **.F5.I.*  XT  P3  »*.F6.2.*  PSI  C«  •*. 
14111*  F7*  1 # * FPS*) 

14120  665  F3RNA*(10X»*S  **.F6.|.*  FT  1C  »*.F6.3.*  SEC  PR  *•» 
14121*  F7.3.*  PSI*> 


14130  6 70  FORMAT!  1 OX. *L  «*»f6.  1»*  FT  TA  **.F6.3»*  SEC  PA  *9. 
14131*  F7,7.«  PSI*> 

14140  675  FORNATt  !OX.*U  «*,F7.1.*  FPS  TO  **.F6.3»*  SEC  CD  *•» 
14141*  FS.  l./.8X.*PS3  **»  F7. 3. • PSI  P03  »*.F7.3»*  PSI*> 

14150  680  FORNATt/* INPUT  NT4BER  OF  L9A0  POINTS  AND  THE  TINE  AND  *. 

14151*  ^PRESSURE  AT  EACH  POINT*  > 

14160  690  FORNATt  / 1 OX.  *TINE  PRESSURE*  ) 
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PROGRAM  RCSLAB  (CONTINUED) 


1 4 1 7o  6<i  Fj444rCFt-».3.Fl2.2> 

1 5000  -:<n 

»OT1  'WI'ITM-  F1LLCR3.  lERTRY  > 

2noioct  ci4oiit'5  4vera<-..:  air  pressure  ir  rih  oie  ri  4L4«r 
aooaoct  i^cioE'ir  meao-j*  .irjr  frjit  wall. 

2<ioiac 

Ron  in  COM-4  4\»  < I 9C»LOrYP£.5RF.<RA4.>»  T14C.  1 1 . YC  *01.  o,  T>,  y j.  rFAIL. 

200S2*  els.  ’.ll.  r*:»o\/. ‘•-rc.poy.  ica«e» riaar.  a«<  *>. 4='i . >,  oc  4>,  :>■><  a>.  foc. 
aons4»  "c.cs.o.i*. 4l»«  AL«a. are4» .aass.  vpail.  ml*. >/l i • \ -.  v=i.  •.-;  a. 

2035S*  REAR.  A«CL»  ARCS.  •yCL.YCS.AR':.  AAR.  AF.  HP,  cp>  y*. 

ROISA.  >■!»  R3.C1.L3C.  S»  ELE9.  CO.  asi.POl.PR.  pf<  T»  PC.  re.  TO.OCLAY. 

20051*  4/11  4.R511.  V3.L1 . 4AC5.  a).  •I'JC  A).  APR  14  T.  4R1  >-:.  0.  02.  03.  A/I.  5P5,  or 

aoi>0  LJC.ICAL  LI.L2.L3 

aooisc 

aoioo  G1T3CIO.  13.  III.IPRTRY 

aoi  10  10  REPJR4 

ao3ioc 

■>0320  13  PJJ*PJ 
30333  TT*0-«  T1  = 0. 

203*0  WHJ34=RH3  3 

20350  L2*. FALRP.  * L3=. FALSE. 

20360  RETUR4 
20370C 

20350  II  IFCLIlOin  52 
20355  IPCL2.A.L31G1T1  9 
20390  52  OOT*CT£5E-T31«0.5 
2039S  IST3P*2 

20400  53  I PC  ODT-LT.  0T3  01T3  St 

20410  50  0tlT*0.  S»OOT 

20413  1 ST3P*2«  t ST3P 

20420  (71  T3  S3 

20430  5!  C34TI4UE 

20440  00  99  1*1.1  ST3® 

2045?  TT*T1*I*00T 

20460  IPCTT.  GT.TOJ  G1  T3  99 

2 0470  04*0.  5 MH*0.  $ 4V«0 
20450  03  500  <*1.4M4 

20490  5*4':C<>  S 0LY*A4C-C. 21*0. 000031 

20500  I PC  CL  Y.  RP.TT1  01  T3  500 

20510  G3T3CIS.  16.  161.4 

20520  15  COF* 1.0 

20530  IPCTT- TO20.20.21 

20540  20  PI  I*CTC-TT1«CPR-PC1/TC*PC 

20550  P11*P|1*P1 

20560  03  T3  30 

20570  16  C0F*-0.4 

20600  21  R»TT/TO  S RR*1.-R 

20610  PD=P03*RR*RR«E<PC-2,«R1 

20620  PRsPRI^RR^ETPC-Rl 

20630  PI  l*PS*CnP*PO 

20640  Plt*PU*P3 

20650  30  RH3t=RH33*CCPIlYP31**G21 
20660  IFCP1 1-P33136-  36.  37 
20670  3o  ISI  G4*-  1 
20650  L2*  • TRUE. 

20770  303  P2*P1 1 

20750  RH32*CCP2/P31>««G2)*RH331 

20790  X*P31/R5333 

20500  05  T3  35 

20510  37  JRIG4**I 

20520  306  P2*PP2*P11 

20530  R5.12*C  CP2/Plll**G21*R511 

20540  X*PU/R531 

20850  35  IJ22«G4*CX-P2/S‘  J21*32.«t  44. 

20560  IFOJ22143.  39.39 

20570  40  PR14T.*U22  4' JATl  VE*.  U22 

20550  ST3P 

20590  39  U2*S3RTC  022) « JSI G4 
20900  O05*',J2*R532*AAC<.l}*OOT 
20910  05*05*004 
20920  ww*Wk*Pll«U04/C  03*95311 
20925C 

20930  530  C34T1 4UE 
20940  P33*"3a»C0-l  .1*U5PV3 
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PROGRAM  RCSLAB  (CONTINUED) 


20950  RM331»RH331*0M/V1 

23960  99  C3NTINUF 

20970  T3*rT 

209*50  P3aP3J-P1 

20982  IF<TIRE.GE.TC>L3a.TRJE. 

20993  RETURN 

20994  9 RaTIME/TO  S 32a  1.0-9 

20995  POaP08*RR«RR«E<P<-2.0«R> 

20996  p$*pca«RR*EXPt-P5 

2099  7 P3a«>s*P0*(  AFR1NT-0.  4«ASI0F> 

20990  999  RETURN 
21020  ENO 

30000  SUBROUTINE  RES! ST  UENTRY) 

3001  OCl  THIS  SMB  ROUT  I NE  INPUTS  THE  REOUIRfr  NALL  DA  TAi  0* TERRI  RES  TRE 
30020CS  RESISTANCE  FUNCTION.  TRANSFORMATUN  FACTORS.  AND  REACTION 
300300  COEFFICIENTS*  AND  SUPPLIES  THE  REACTION  VALUE*  FIR  SPECtFIC 
300400  0EELECTI3NS  REOMI REO  IN  THE  DYNAMIC  ANALYSIS 
30045C 

30050  COMMON  < INC.LDTYPE.  <RF.  < RANO.  TIRE»  t»Y<80>.  3.  RM.  Y*l»  YFA1L. 

30052*  ?LS»ELL«MS.  PV.FPC.FOY.  I CASE.  N1BAR.  A$<  4).  APS<  47. 0<  4>.  DP<  4>.  FOC. 
30054*  EC.  ES.  R.  ALP.  ALP2.  AREA.  ERASS.  VEAIL.  *<LM»  VL  1 . VL2.  VS1.  VS2. 

30055*  MEMB.ASCL.ASCS.  VCL.  VCS.  ASS.  BSS.AF.  BF.CF.NN. 

30056*  -.  PI.  Cl.L  1C.  S.  ?L  EN.  CO.  PS1.  P01.  PR.  PEXT.  PC.  TC.  TO.  DELAY. 

30059*  NW1N.  RR93.  V3.L1.  AA<8.  2>.  NN« 8 >»  AFRONT.  ASI  DE»  G>  G2.  G3.  G4.PP2.  OT 
30070  COMMON  /SAR/  SAREAS. SAREAL 

30100  REAL  N.  1 C.  I G.  RR.  44  1 * 94 2.  <9 3.  RUC  4>»  ICRC  4).  8 T 

30130  G3T0C4.  500.  457.IENTRY 

30140  4 RETURN 

30910C 

30920CI 

30930CX  • ENTRY  21  OETERRINE  ELEMENT  PROPERTIES  » 

30940C1  • DEPENDENT  3N  EOC.  FDY.  AND  D • 

309 50C 

30960  45  NaES/EC 
30970  FRaR.  04SORTC  FDC1 

30980  I G*MS««3/12*t  N-  I )•<  AS<  1 >•<  l)t  1 >-HS<  -«2*APS<  I >"(MS/2-DPC  1 > >*«2> 

30900  RRa2.0*IG«FR/RS 

30920  CALL  RaRENTtFOC.FDY.ER.N.O.I.O.AS.L.-S.O.PP.RM.ICR.IO 

31490  0Ri|aRUC2»/R>JH  J 

31500C 

31510C1  DETERMINE  POSITION  IF  YIELD  LINES  ANO  ULTIMATE  RESISTANCE 
31S20C1  C1EFFI Ct ENTS  FIR  TW5-HAY  SLAB 
31530  IFMCASE.GT.41G1T0  106 
31540  ?UaRUf4»/RUt2> 

31530  EI3aM  J<3>/RU<n 

31560  DORR  A 1 2=2. 0*SQRT<  I • 0*E I I > 

31570  GARRA34ai2.0*S3RT<  1 .0*EI  31 
31580  GHAT»0ANNAI2/GAMNA34 

31590  B=SORT<  1*21  1 >•  t <31U«  ALP2/ GARRA349X  S3RT<  GRAT»*2*3/ 

31600*  «GR'JaALP2)>-GRAT> 

3 1 61  OCl  IF  RETA  IS  GREATER  TRAN  0.5  ASSUMPTION  3F  CRAC9  PATTERN  A 
31620CI  N3T  VALID  ANO  CRACR  PATTERN  R IS  ASS'lRED  TO  OCCUR 
31630  IF18.LE.0.51GJT2  105 
31*40C 

31650CI  CRAC8  PAT1ERN  B 
31660  <RA<*1 

31670  Ba SORT*  1.0* El  3»«<  S3RT<  1 • 0/  GRAT«»2*  GRU*  ALP2*3.0>-  1 .0/  GRAT> 

31680*  /C  GR'1*ALP2*GARRA12) 

31690  3UTERRa6.0»»RRAI24«2*ALP*GR'l/<S0RTC3*l/C(MU*'N.P2aGRAT**2>> 

31  700*  - 1.  OUTSORT*  (Will  •ALP4GRAT>>*«  2 

31705  SA9EASa0.5*'LS»'LLa<1.0-B)  8 SAPEAL  = o.  5»*LS«'LL«B 

31710  GOTO  108 

31%20C 

31730C1  CPAC9  PATTERN  A 
31740  105  CONTI NUF 
31  750  9 RA<  aO 

11  760  iMTERRa6.0»GARRA34««2/(  ALP«<  S0RT<3*  (7RU«ALP2*  GRAT««2> 

31770*  •ALP*GRAT*SORTC  ORU)  )**2) 

31775  SAREASaO.  5»7LS«'LL«B  S SAREALaO.  5VLS*9LL*<  I .0*B> 

31780  GOTO  108 
31  790C 

31800C1  OETERRINE  MOMENT  ANO  DEFLECTION  COEFFICIENTS 
31 81  OCl  FOR  CRAC8E0  PORTION  OF  SLAB  BEHAVIOR 
31820  106  BaO 
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PROGRAM  RCSLAB  (CONTINUED) 
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3l'<<?'i  SAtEAS*0 .0  t SAREAL  = 0.S*/L3*'LL 

31  *30  103  FlNflMUE 

31340  G)[l(Hi>|4v>l)S>|4i.  I A/.  Hi,  noli  I CASE 
SHSO  132  7UTERN*  1.0/  <33 
31860  G3TI  135 

31370  13$  3UTERN=O4U<3>/'4,Kl»'.1.0»/<8SS*/L5> 

31330  GOTO  135 

31330  130  TUTERNiIO.  5«3-i<  31/ 4-J4  1 > » l.Ol/I  RSS*6LS> 

31300  195  ajT7(200»2t0.2l0.2IO»?oo,2lo»210>»  ICAF- 

3191 OC 

319200 

3I930CJ  ♦ OErCR-4142  RESISTANCE  CURVE  F3R  .ALL  • 

319400  • <0  15  19  i|4ll5  IF  *»SI.  33  14  LA/C'I.M..  A40  V 19  INCWFCJ  * 
3I950CI  • *«**«*««••««*«««*««««•«•«•«»•««•«•••««••■.•«•*«*•«•••♦•••••« 
3I360C 

319  700  CASES  1 A 40  5 
31930  200  31  =94/<  3SS«;LS«'i_S> 

31340  33  I *EC«  tG/(ASS*ILS**4) 

32000  71=01/331 
32010  3<2*EC«I  C/<  A«S«  EL«*«  41 
32020  lF(!CASE«E0.S>O3T3  RO-j 
32030  OU=0UTERN*NiK  1 I/AWE4 
32040  G3T3  203 

32050  205  3J*QUrERN*NU<  t »/'LS 
32060  208  711=011/332 
32070  03 TO  230 
32030C 

32090CI  CASES  2.  3.  4.  6.  « 7 
32100  210  01 *NM/f  AF* *L 5*  ELS > 

32110  <-<l=CC*t  G/{AF*?LS««4> 

32120  Y1 =01/33 1 

32130  02*NU<NX>/<CF«»LS*?LS> 

32140  332aEC*IC/C AF*/L5*44) 

32150  Y2=02/332 

32160  «?=£C*lC/<4rS*?LS*«4> 

32170  IF<IC4SE.GT.4K*  I 216 
32130  0'l=Q  irER'1*N  K1  J/AREA 
32140  03 T3  220 

32200  215  3'J«0,ITE<n*'4U<l»/?tS 

32210  220  YM*Y2*C0U-12>/«3 

32220  230  CANT! NUE 

32260  0FAIL  = 3'J 

32270  YT=939.9 

32280C 

322400  CHECH  F39  TYPE  IF  FAILURE  - 1.10417.7  REINFORCED  JR  CONVENTIONAL 
32300  IFfiijd  >.LT«  I.5*NN>OTTT  293 
3231  OC 

323200  CONVENTIONAL  TYPE  FAILURE 

32322  IFUCASE.EO.  1.3R.ICASE.E0.  SJ33T3  272 
32324  YE=Y2*Y(I«<  l.0-  J2/0ll> 

32  326  03  T3  2 13 

32323  272  YE*YU 

32330  273  YFAIL* YE*0. 1/ < ASC 1 >/0C 1 > ) 

32340CJ  DUCTILITY  FACTOR  NUST  3E  < = 30 
32350  IF<  YFAIL.  GT.  30.0*YE>YFAIL*30.0*YE 
32370  HTt  900 
32380C 

32330C1  LIGHTLY  REINFORCED  TYPE  3F  FAILURE 

324000  THE  FOLLOWING  EXPRESSION  IS  BASED  JN  A STEEL  ELONGATION  3F  20X 
32410  293  UC3EFOO.O 
32420  UPU*UC3EF«S3RTf FIIC> 

32430  ARAR=3.  I 41  sy«(NJ8AR/1  6«I**2 

32440  290  YrAIL  = S3RT(<0.2«ABAR»FDY/UPU*/.LS/2»>»*2-46LS/2*>«*2> 

324600 

32470C  TENSILE  NEM9RANC  BEHAVIOR 
32490  900  iriRCHB.NC.nMTO  MS 

32590  T3*ASCS*FDY 

32535  IF(ASCL.EO.O>OOT3  312 

32540  TL*ASCL*F0Y 

32550  0 = 3.  1 41  59* SORT!  TS/TL  I *ELI./C  2.  0*ELS> 

32560  <T*0 

32570  03  310  IJ=i»l3»4 
32580  112*  J 1*2 

325R2  CJSHJ  1*0.5*  <£XP<  JI*C1  >*EXPC-  l)*CI  ) > 
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PROGRAM  RCSLAB  (CONTINUED) 
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I 
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32584  C3SH  I 12*0.  5*  tEXPt  J J2*C  I > » EXPt  - II2«C1>» 

32590  C2*t  1.0-l.0/C3SHJ.n/  J )•«  3-  < 1 .<>  I . 0/C3SRJ  12  >/ J J2««3 

32600  310  -<T*<T»C2 

32610  <T»1.S«3.  l4l59«*3/t4.0*<T> 

32620  OTTO  314 

32630  312  *t  T*8.  0*  l • 5 

32*40  314  YT»eO*ILS«»LS/t<T*TS> 

32*42  9T-8U 

32*44  IFtYT.LE.YFAlORm  316 

32*4*  yt-yfail 

32*42  #T»rr*KT*TS/<aS4SLS» 

32*90  31*  YFAIL»0.I94ELS 

32**0  0FA!L*YPA1L«KT«TS/<ZL£4ZLS> 

32**5C 

32670C  • AO  HIST  L3AD-0EfLECmv  CURVE  F3R  SLAB  OEAO  LOAD 
32680  24 S OOL* I SO. 0«MS/ I 724. 0 
32700  IFtOOL.CT.QDOTTO  292 
32710  TOL*OOL/-«I 

32712  09  T3  29S 

32713  292  GBTRt  293#  294.  294.  294.  293.  294.  294>.  I CASE 

32714  293  YOL*Y1*t90L-3n«tYU-YI  >/tOII-91  > 

32715  I Ft  30L.LT.  0U>  OTTO  295 

32716  PRIVT»«90L  *«.00L.«  OM  *•••7(1  S STOP 

32717  294  Y0L»YI*tOUL-3l  >«fYU-Yl  )/t9U-01  > 

32718  lFt90L.LT.02>OTT(l  295  S PRIVT»*OOL  «».OOL.«  02  «*»02  1 STOP 

32719  295  COVTIVUE 

32720  Y1*Y1*Y0L9  Y2«Y2-Y0LS  YU*YU-Y0L9  YT»YT-YOL*  YFAIL* YFAIL-YOL 
3272  5 91*9I-00LS  02*02-0DLS  J'J*Q'J-QOL*  RT«RT*R«.*  RFAIL.RFAIL'RIL 
32730  tFt-tRAVO.VE.IlPRIVT  633.301.. YOL 

32750C 

32760CS  0UTPUT  L3A0-0EFLECTI3V  CURVE 
32770  Irf-tRAVO.EO.  I1OTT3  335 
32  780  PRIVY  650 

32790  IFCICASE.E0.1.0R.ICASE.E0.5X53T1  320 

32800  PRIVY  660.01. Yt.02.Y2 

328 10  GOTO  330 

32820  320  PRIVT  660.oi.Yt 

32839  370  tFMSOA.EO.l  >G3Y3  332 

32840  PRIVT  660.  T I.  YU.  OFAIL.YFAIL 
32850  QRT3  335 

3099  30  IPtRT.VE.ROTRRTR  333 

30*0  PRIVY  4*0. OU. YU. OT.YY. OFAIL.YFAIL 

300  «n  333 

30*4  333  PRIVY  640.RU.YU.RU.YT.RT.YT.  OFAIL.YFAIL 

32870  335  C1VTI VUE 
32880C 

C2890  CALL  TRAVS  < A.  »LS»  ?LL.  I CASE.<RA<»  KLVSE.  '<LVFE.  Y-tLVP.  W.  I $.  VL2S. 
32900*  VSI  S.  VS2S.  W.  1 F.  \R_2F.  VS1 F,  VS2F.  VL I P»  1A.2P.  VS1P.  VS2P> 

32910  3SHHL*VCL«0<  1 >«6LL/t  1 18. 1 S*  VL2S>*AREA1 

32*20  t Ft l CASE. GT.  41  OTTO  340 

32*30  0S4R8*VCS«0t27»TLS^f  t VSI  ci/S2S>«AREA> 

32940  IFtKRAVD.VE. 1 >PRI  VT  690. 7S8RL.  9S8RS 
32950  00  T3  345 

32960  340  IFtVRAVO.VE.  1 1PRIVT  695.0S8RL 

32*70  345  C3VTIVUE 

32*80  RET'JRV 

32990C 

33000CI 


EVTRY  3s  OETERVIVE  TUP  RESISTAVCE  tPER  UVIT  AREA! 
3F  THE  WALL  ...  A FUVCTI3V  3F  rft> 


3301 OCs 
330200s 
33030C: 

33040C 

33050  500  IFCYtlJ* GE.  YFAIL  1 OTT3  560 
33060  lFtrtI).GT.Y1i>0*T3  540 

33070  QRTOt 501. 520. 520. 520. 501. 520. 520». ICASE 

33080  501  COVTIVUE 

33090C 

33100CI  ELA5TIC  RAVGE  " CASES  1 AVO  5 
33110  E<L8«?<L8S£ 

33120  VLt’VLlS  9 1A.2-VL2S 
33130  VSI*VS1S  S VS2* VS2S 
33140  I Ft  Yt  1 1 . GT»  Y1 1 OTT3  510 
331 SOC 

331A0CI  UVCRAC-tEO  P9RTI3V  — ALL  CASES 
33170  505  0»Ytt>»«l 
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PROGRAM  RCSLAB  (COHTINUED) 


33H0  RETURN 
331 90C 

33200CI  CRACKED  AJRTMN  ” CASES  I AND  S 

33210  sio  o=oi*(f(i >-yi >«to<j-Ji >/<yij-yi > 

33220  RETURN 
33230C 

33240  520  1 F<  Y<  I > . GT.  Y2>  GOTO  5:o 
33250C 

33260CJ  Ft  ASTI  C RANG*-  — OAsrs  n,  4,  6.  T 

33270  TKLKsTKLMFF 

33250  VLI  = VL1F  S VL2=VL2F 

33273  VSI=VS|F  $ V'2*VS2F 

33300  IF(Y<I>.LT.Y1>GITJ  505 

3331  OCl  CRACK €0  PORTION  --  CASES  2.  3.4.  5.  7 

33320  0=31* (TCI >-YI I •02-01 >/<Y2-Yl > 

3332S  RETURN 
33330C 

33340C1  ELAST3-PL  ASTI  C RANGE  — CASES  2.  3.  4.  6.  7 

33350  530  'KLM=TKLM«E 

33360  VLI*VLIS  S VL2*VA.2S 

33370  VSI*VSIS  S VS2* VS2S 

33350  9*02*KK3«(Y<  1 1-V21 

33390  RETURN 

33400C 

3341 OCJ  PLASTIC  R4NGE  — ALL  CASES 

33420  540  TKLM*TKL.MP 

33430  W.I  = VLIP  S VL2*VL2P 

33440  VS1»VSIP  S VS2* VS2P 

33450  IF(Y(I>.GT.YT>G3T3  550 

33460  Q*OU 

33470  RETURN 

33450C 

33490C  TENSI  E NEM9RANE  RANGE  — ALL  CASES 
33500  550  «a»\»(r(|>-TTI*<trAU.>*T>/(rPAIL*yT> 

33510  RETURN 
33520C 

33530CJ  ELEMENT  CJLLAPSEO  - 'll  RESISTANCE  (T8  4V3ID  NUMERICAL  OIFFIC'ILT!  ES 
33S40CI  FIR  CERTAIN  CASES  SET  RESISTANCE  5JM4L  TO  VERY  SMALL  V4L  j£> 

33550  560  0= 1 E- 1 O 
33560  RETURN 
33S73C 

33653  633  F3RMAT</«30L  *«.F6.2.«  PSI  YOL  **»F5.4»»  IN.«> 

33700  650  FORM4T(2/«LJAU-OEFLECTI IN  CURVE*. /» 3*. « 0 (PSI>  Y (1N.)»> 

33710  660  F3RM4T(F9.2,F12.4J 

33750  690  F3RM4T('«0SMRL  *».F9.2.»  PSI  OSHRS  *«»F9.2.»  PSI«» 

33760  695  F3RMAT</*ASHRL  = «.F9.2.«  PSl»> 

33510  END 

35000  S UR  ROUTINE  N3NEN  T<  FOC.FOY.  ES.N.  PV»  B»  AS.  APS.  0.  OP.NU.  ICR.  I C) 

3501 OC  THIS  SUBR3UTINE  DETERMINES  THE  ULTINATE  N3NENT  CAPACITY  AND 

35020C  CRACKED  MOMENT  OF  INERTIA  F3R  REOUI RED  SECTI3NS 

35040  REAL  K1.K2.K3.KU0.N.IC.  ICTOT.MUC  4>.  ICRt  4>.  ASC 4>.  APSt  4>»  0(4>.  OPt  4» 

35050C 

35060C*  DETERMINE  VALUES  3F  CONCRETE  PARAMETERS 
3S070  45  Kt*0.94-FDC/26E3 
35030  K2*0.S0-F0C/3E4 

35090  K3*  <3900.0*0.  35‘FOC)/ (3E3*0. 52*  F0C-F0C»F0C/26E3> 

35100  EPSC*0.004-F0C/65E5 
3S150CI 

3S160CJ  « DETERMINE  ULTIM4TE  MOMENT  CAPACITY  AND  CRACKED  ♦ 

35170C1  « M3MENT  3F  INERTIA  F3R  RE3UI  RED  SECTI3NS  * 

35I80C*  ************************************************** 

3SI90C 

35200  II*OS  ICT3T=0 
35210  03  I 70  1*1.4 
35220  IF<ASU>.E9.0JG8T3  170 
35230  It*!!*! 

3S240C1  ALL  FR3PERTIES  ARE  COMPUTED  F3R  A Ut  DTH  9 
35250  TENS»ASCI>«FOY*PV 
35260  IFCAPS<l>.LE.O»G0T3  ISO 
35270C 

35230C*  WALL  HAS  CO  PRESSI IN  REINFORCEMENT 
3S290  C*KI*K3*F0C*S*/)P<I> 

35300  TERM! *0. S*<  TENS/APSC I > »ES«EPSC> 

35310  TERH2*ES*EPSC4(TENS-C>/APS<I> 

35320C:  DETERMINE  LOCATION  3F  NEUTRAL  AKIS 
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PROGRAM  RCSLAB  (CONTINUED) 


35330  IFUEMS.LE.OGTTl  140 
3S340C 

353S0Ct  KUO  » O' 

35360  FPS*TERMl*K3*F0C/2.0-S3RT<  < TERMl *<3*F0C/2. 0>**2 
35370*  -<  TERM2*  ES*£PSC*K3*F0C>  > 

3S380CJ  F'S  11151  BE  <=  FOY 
35390  !FfFPS.LT.F0Y)G3T3  130 
35400  FPS*FOY 

354! 0 130  TPS*APSU  )«CFPS-K3*FI)C> 

35420  K UO*  C TE M S-  TPS > / < K 1 «K  3*  F9C*  B > 

35430  iu(!»(  TEMS-  TPS> •<  DU  >-K  2*K'JD>  * TPS*  < OC  I >-0P<  I > > 

35440  ICR!  I >*H*KU9*«3E3.0*M«AS<  ! )*<0f  ! >-K'l1>  • *2 
35450*  *(M-1  >«APSCt  >*<KU0-DPt  I >>**2 

35460  GUI  152 
35470C 

3 5 480C:  KUO  « O' 

35490  140  FPS*-TFA'11*SQRT<lF9Ml««2-TERl2> 

35500Ct  F'S  MUST  BE  * = FOy 
35510  lF<F?S.LT.FOY)om  145 
35520  FPS=FOY 

35530  145  TERM3*TEMS*A°SU  >»FR« 

35540  KU:)»TERM3/<K1«83»F0C«8> 

35550  MHU  >■* TERM  3«<0U  )-K2«KUD>-  APS!  t >*FP£*<  0!  I >"0Pf  t > ) 

35560  ICP<  I >»3*K'.ID*«3/3*M«ASU  >«<QU  >-KUD>  *«2*  M*APSM  >*  t OPU  >-<UD>**2 

3S570  GOTO  152 

35580C 

35S90CJ  WALL  HAS  40  CUMPRESUIM  RE!  MFJRCEMEMT 
35600  150  KU0*TEMS/<K1«K3*F&C*B> 

35610  MUU>*TEMS*<i  U>-K2*KUD) 

35620  ICRU  >»8*Kil0**3/3.0*M«:4sa>*<0U>-KilD>*«2 
3S630C 

35640  152  ICT3T*!CT0T*1CR<I> 

35650  170  C3MTIMUE 
35660C 

35670CI  OETERMIME  AVERAGE  CRACKEO  M9MEMT  3F  IMERTIA 

35689  175  IC-1CT3TUI 

35690  RETUKM 
35700  EMO 

50000  SURRS'JTIME  TRAMS  < B»  EL  V.  ELM.  ICASE.KRAK.  EKLMSE.  EKLMFE.  EKLMP,  VL  1 S» 
5001 0*  VL2S.  vSl  S.  VS2S.  VL  1 F.  VL  2F.  VS1 F,  VS2F,  «.  1 P.  W-2P.  VS  I P.  VS2P> 

50030C 

50040CI  THIS  SUBRO'JTIME  9ETERMIMES  LOAD  AMO  MACS  TRAMSF0RMAT13M  FACTORS 
500500  AMO  OYMAMI C RSACTI3M  C3EFF1CI EMTS  FOR  TSO'WAy  WALLS. 

S0060C 

500700  DETERMINE  L3A0  AMO  MASS  TRAMSF3RMATI 3M  FACTORS 

50080  B2*B«B 

50090  B3*9*32 

50100  84*82*  B2 

50110  85*32*B3 

50120  96*93*83 

S0130C 

501400  CASES  1*5—  Q,AST!C  RANGE 

501  SO  330  E<MSEl*20.48*B3*<!./12.-32/7.5*B3E21*94/!4-9S/15»B6/90> 

50160  EKMSE2“0.  5039-0.  7066*3 

SOI  70  EKLSEl»6.  4«B2«t  1 ./6. -B2/1  0.  *B3E  30.  > 

50180  EKLSE2*0. 64-0.8134*0 

50190  BARSl»8*t  1./12.-B2/  15.*U3E42.  )/<l  ./6.- 02/10. *B3/30.  ) 

50200  BARS2-C0.  127083-0.  l84S24«5>/!0.  4-0.  508333*B> 

50210  EKNSE«EKMSE1*EKMSE2 

50220  EKLSE*EKLSE1*EKLSE2 

50230  1 FCKRAK.EO*  1 > GOTO  J35 

50240CI  CRACK  PATTERM  A 
50250  CVS*0. 5*B 

50260  CVL*0.S«<|.9-=) 

S0270  XP*ELH*B/3.0 

50280  X9ARS»BARS1*ELH 

50290  EP*ELV*<  1 .0-4. 0*9/3. 0>E<  4.0*(  I.O-Bl) 

50300  EBARS»BARS2*ELV 

50310  XBARP*0. 5*B*ELH 

50320  EBARP»ELV*<  I./24.-B/16.  >/I  I ./8. -BE 6.  1 

50330  OB T9  338 

50340CI  CRACK  PATTERM  B 
50350  335  CVS*0.  5*U  • 0-9) 

50360  C1A.«0.5*B 

50370  XP*ELH*<1.0-4.0*B/3.0>Et4.0*C  |.0-B>> 
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S03H0 
SO  390 
SO  400 
S0410 
S0420 
50430  334 
S04S0 
50460C 
S0470C: 

50  440 
50400 


XH4RS=9ARS2*'LH 
2P*'LV«  4/3.0 
/BARS=9ARSI*'Lv 

XBARP>'L9«(  1./24.-4/I  A.  >/<  I . /9.-A/  6.  > 
/AARP»0.  5«4«'L  J 
’.  < L 4 S E * ' < ■4  5 FS  7 < L 5 E 

ran<3»o.  340.  sso.  360»  300, 340. 4?o>.  ica«e 


C OCRS  2.  3.  t 4 — <3.401!  0 RAMCE 

■>50  lF<<RA-t-£3.  l > GJT9  355 

OITA  340 

50500  360  I F(44A4. -:o.0>  0!T3  365 
5051 0C«  C4SES  2A,  ?p,  34,  t h 

60520  340  7<'1FE1*5I2.  0*85*  i t . 0/  30- -4/  I 0.  5»  3.  «4R/24.  -43/  1 « .*B4/9U.  > 

50530  MLFE1  = 32.  0*03*  < 1 ./ I 2.  -9/ 1 0.*B2/ 30.  > 

50540  RARE  J = B*<  .06-9/1  6.  *92/  »2.  >/€  I . /|2«*B/  ! 0«*  42/30.  ) 

50  550  G3T3O70.  345.  370.  370,  370.  365) • {CASE 

SOSAOCt  CAOt-0  2A.  2B.  39,  4A.  * 6 
60570  365  '■4'*FE2«0.  4045-0. 61  44«9 

50540  £XLFE2*C. 5344-0. 7329*9 

50590  9ARF2* (.09 166  7- *1  3909  5*  9>/(  . 24664  7- . 36666 7«9> 

>0600  C3T3C375,  369.  376.  375.  375,  364).  {CASE 

SOAlOCs  CASES  2A  t 29 

50620  364  /•<  4FE*?44FEl  * ^4  4FE2 

50630  '4UFE*'-<UFE1*'4LFE2 

50440  01T3  340 

S06S0CI  CASES  3A  * 49 

50660  370  TXMFE'TKMFEI ♦EXMSE2 

50670  E-<LFFa/4LFEI»'-<USE2 

5049  0 0373  330 

50690CS  CASES  39.  4A,  t 6 

60700  375  /-<4FE»/34SEI*/-<«IFEa 

50710  7<LFE*7<LSEI*’<LFE2 

50720  340  /<L4FE*E-«'1FE/*3LFE 

50740  03  T3  390 

S0750C1  CASE  7 

50760  470  T<L4FE*0. 74 

50  770C 

50790CI  ALL  CASES  -*  PLASTIC  RAMGE 

50790  390  /4«pa<  1.0-BJ/3.  0 

60900  /4LB*Q.5-9/3.0 

509 1 0 /<L4P:»/<4o/;!-<LP 

50920C 

50930C 

S0940CI  DETERMINE  0TMA9SC  RE4CTI7M  C3EFFI Cl SMTS  F33  S93RT  CVS>  AMD 
S08S0CI  L3MG  (VL)  EDGE? 

509  60C 


509  70 

1F<1CASE.LT.5>G3T9  395 

50990 

X8ARS* 1 E- 1 OS  BARF  1 * 1 K- 1 OS  XAARPilE-10 

50990 

39  5 

C3MTIMHE 

50900 

O0T3«  450.  400.  400.  420.  450.  400.  44S>,  {CASE 

50910 

400 

IF(TR4T.E0.  1 ) 03T3  410 

50920 

X3ARF«BARFl«/m 

50930 

IFC1CASE.E0.  3)G1T7  4?0 

50940 

40S 

/BARF=RARF9«/LV 

50950 

G3  T9  440 

50940 

4IG 

XBARF*H4RF2**L9 

509  70 

1FUCASE.E0.3)03T3  435 

509  9 0 

415 

7BARF>BARF1 **L V 

50990 

(33T3  440 

SIOOO 

420 

I F(6  R4K . E3«  1 ) 03 T3  425 

51010 

X9ARF*°ARSl**LH 

51020 

(33  T9  405 

51030 

425 

X8ARF»B4RS2*7LM 

51040 

G3T3  415 

61050 

430 

7BARF»BARS2«1LV 

51060 

03  T3  440 

610  70 

435 

EBARFzBARSI • *L  V 

51090 

440 

C3MTIMUE 

61090C 

51100CI  CASES  2.  3.  4.  A 6 --  ELASTIC  RAMGE 
51110  VSIF*CVS*II. 0- TP/ X BARF  > 

51 1 20  VS2F*C7S«fXP/XBARF) 

51130  \A.1F*CVL*<1  • 0-  *°//BARF> 

61140  VA.2F»C‘A.*<»=/'9ARF) 
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PROGRAM  RCSLAB  (CONTINUED) 


5 1110  (*JT3  450 

Si IHOC 

31I90C1  C4SE  7 --  PLASTIC  RAH3-: 

53  200  445  VS1E*0 
51220  VL1E*0.459 

51240  W.2E=0.  165 

5I250C 

S1260CJ  CASE  1*5--  PLASTIC  RANGE 
SI270  450  VSlS*CVS*<l.O-*.'/<AARS> 

512A0  VS2S*CVS*<  XP/XBARS) 

51290  \A.lS«CVL*CI.0-iP/'.BARSl 

S 1 300  VL2S*CVL*<  EP/TBARS1 

51340C 

51350CI  ALL  CASES  --  PLASTIC  RANGE 
51350  450  VS|P*CVS»<  1 .0-X“/<BARP> 

51370  VS2P*CVS«Cxp/XAARp> 

5 13A0  1A.|P*CVL*<  1 .O-TP/EAARP) 

51390  1L2P*CVL*CTP/C3ARP> 

51400  RETURN 

51410  ESO 

70000  S‘J9R3UT1N£  R4N014  CtEMTRYl 

70010C  THIS  SUBRS'JTINE  INPUTS  MEAN  AMO  ST4N04RD  0EVIAT13NS  FOR  RAM03H 
70020C  VARIABLES!  GENERATES  R4MD3N  VALUES!  AMO  C3NTR3LS  RE1UIRED 
700 JOC  Nt»4B£A  3E  CASES  T1  BE  RUM!  4N0  JUTP'JTS  El  HAL  RES'JLTS  AMO  SUNNARY 
70040C 

70050  C0NN3N  < 1NC.LDTYPE.HRE.RRAN0.  TIRE.  I.  Y C30>»  0.  QU.YU.  YEAIL* 

70052*  ?LS»  ELL.  MS.  PV»  EPC.  EOT*  I CASE*  N3BAR,  A$(  4)  * APS<  4).  D<  4).  0P<  4).  EOC. 
70054*  EC.  ES.  R.  ALP.  ALP2.  AREA.  {MASS.  VEAIL.  t <LH»  W.  I . VL2.  VSI . VS2. 

70055*  MENS.  ASCL.  ASCS.  VCL.  VCS.  ASS.  RSS.  AE>  BE.  CE.  MX, 

70055*  w.  P3.  C3.L3C,  S.  EL  CM.  C0.PS8.PM.PR.  PENT.  PC.  TC.  TO.  DELAY. 

700SR*  MUI M.  RM00.  V3.L  1 . AAI 8.  21 . NNCH  ) . AER3MT.  AS!  OE.  G.  G2.  o3.  G4. PP2,  DT 
70080  C3N40N  /R AMO/  T1MEC 

70090  DIHEMS13M  CHI  251  71.  CMI97SC  7».  TDI  STt  7> 

701 OOC 

701  IOC  VALUES  E3R  9 7.  5t  < E.  1 9,84.  29.  34.  39.  44.  49  > 


70120 

70130 

70140 

701 SOC 

70150 

70170 


OATA  CHI  25/.  4648.  .5167..  5533.  . S825.  . 6065.  . 6267.  . 6440/ 

DATA  CHI9  7V1. 729  5.  I.  6402.  1.5766.  1.5284.  1.4903.  1 . 4591.  1 . 4331/ 
OATA  TDI  ST/2.  093.  2.064.  2.  045.  2.032.  2.  022.  2.  0 1 6,  2.  01 0/ 

03 TOC  5.  SO.  70>.  I EMTRY 
5 XDlNMY»XM3R'11C-l. 0.0.0.  1.01 


701R0C  INITIALISE  R4ND0N  MEMBER  GEMERAT3R 


70190  PRiMT./.*lMP  |T  MRAMO*. 

70200  READ.  MRAMO 

70210  03  4 7 1*1. MRAMO 

70220  X 0iJ4MY*XM3RMl  <0. 0.0. 0.  1«0> 

70230  A7  C3MTI MUE 

70240  IMOEXpO*  SPS3*0S  SSPS3*0 

702So  ICHECH*20 

70260C 

70270C  IMPUT  MEAN  AMO  STANOARD  DEVI AT10M  E3R  R4MD3M  VARIAH.ES 

70275  IECL3C.E0.2JOTT3  30 

70280  PR1MT  87 

70290  READ. SNEAN. SSO 

70410C  RE1ME3RCC0  C8MCRETE  WALLS 

70420  30  PRINT  86 

70430  READ.FOYNEAN, EOTSO 

70440  IECL8C.E0. 11PRIMT  96 

70445  IECLOC.ME.DPRIMT  95 

70450  RETURN 

70460C 

70  470C  GEMERATE  R4ND3M  VALUES 

70  5 70  50  F0Y*XM3RNI<0.0. E0YNE4M. EOTSO) 

70580  !E<r0T.LE.0>G3T3  50 

70 SR 5 l ECL3C.  EO.  2.3R*  SMEAM.  EO.Ol  G3T3  65 

70590  60  S*XM3RHl<0.0.  SMEAM.  SEO> 

70600  IFCS.LE.O1G0T0  60 

70610  65  IMDEX*1M0EX*  1 

70620  RETURN 

70630C  St/M  VALUES  3F  PS3  AND  PS9»»2  EJR  USE  IN  STATISTICAL  ANALYSIS 
706A0  70  SPS3«SPS3»PS3 

70650  SS?S3*SSPS3*PS3«PS3 

70660C 

70670C  3UTPUT  FINAL  RESULTS 

70730  76  I ECL3C.  E0«  1 >PRI  NT  92,  EOT.  S»  PS0.  TI  NEC 

70735  IECL3C.NE.  I)PRINT  90.  EOT.  PS3.  TINEC 
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PROGRAM  RCSLAB  (CONCLUDED) 


70740 
707S0C 
70  760C 
70770 
70  7*0 

70  790 
70*00 
70* IOC 
70420 
704 30C 
70440 
7O4S0C 
70460C 
704  70C 
70480C 
70490 
70900C 
709  10 
7O920C 
70930C 
70940 
709S0C 
70960C 

709  70C 
70940r 
70990. 
71000C 
71010 
71020 
7|  770 
71040 
71050 
71060 

710  70 
71040 
71090 
71100 
71110 

711  20C 
7 | | 30C 

71  140 
71  1 SO* 
71  140 
71  1 70 
711 HOC 
71 190C 
712004 


RO  IF<1M0EX.LT.!CHECH>RETII*M 

OETFRMt  ME  MEAnI.  STAMOAR.,  DEVIATIJM.  AMD  STAMOARO  ERR3R  FOR  PSM 
•’MJ*1M0« 

»MCAM*.SOSl/TM3 

ROsCl^rf  ( ?S»S3-*M3*7MEAM**MEAM>/7M!j> 

sTOfpR*sn/t  sort*  9 7-  n> 

CHECH  If  MAXI  H'M  .If  6.1  PS.3  'AMPLE?  JB'AIMED 
lEU'IOEX.EO.SOlf.m  4? 

CM- C<  ! F ->St  COMFUFMCE  IMT^RVAL  F3*  MEAM  P?1  VALUE  IS 
Iff  STDEAA*  T01  ST*  * I MOEX-l 53/53 /» MEAM. OT.O.  10)  (TJT1  61 

COMF1 OEMCE  IMTERVAL  IS  XlTHIM  10*  --  J-TERMl ME  >jppf-M  LIMIT  OF 

95t  C1MFID2MCE  1 4 TERVAl  FJR  STAMOARO  0EVIRT13M 

PR3AAAIL1TY  VALUE  AMO  IT'  9S*  C3MF10EMCE  IMTERVAL  UPPER  LIMIT 
62  SOU* SO/ ' SORT* CHI  25*  < 1 MOEX- l S>/6>  > > 

CHECH  IF  MAXIMIX  3F  SO  PSJ  SAMPLES  3BTAIME0 
IFUM0EX.E0.S03OJT1  57 

CHECH  IF  UPPER  VAL JE  3F  95*  C3MF10EMCE  l MTE-VAL  FIR  STAMFORD 

DEVI ATI 39  IS  WITH19  0-10«MEA9  3F  THE  STAMOARO  D^VIATt-JV 
1 Ft <* SDU-S03/ /MEAM 3. fiT.O. 10303T3  61 

95*  COMF1 0E9CE  IMT'RVAL  IS  WITHIM  101  F 39  ROTH  ME»M  AMO  9, It 

PROBABILITY  VAL  iE  ••  THERFpIRE  S’JFFI  Cl  EMT  'AMPLE?  OBTAINED 

0FTE3M1HF  96*  COMF1 OEMCE  IMTERVAL?  F3H  MEAM.  STAMOARO  OF VI  AT  1 3 M 

AVD  lOt  AMD  901  PR3BAB1LITY  VALUE? 

53  'MEAML*?MEAM-STOERR«TOI  ?Tt  * 1MI3EX-  1 53 /5> 
»MEAMU*'*EAM*STOERR*TO!  ST**lMOFX-  l 53/51 
SOL*  fo/{  SORT!  CHt9?6*  1 1 MOEX-  153/5333 
»t'3=’MEAM-|.2R2«S0 
PIOL*  'MEAM-  I . >Hj»*?OJ 
P|0'J»*MEAM-1.2R2»S'i_ 

P70*/MEAH* | . 2H2*SD 
°90L*»MEAM»1.2R2*SOL 
o?o»’MFAM*I -2B2«SU 
P90J*»MEAM*  I .RR2*?0'I 
p90'i*»MEAM*  I * 3B2«  SO  J 

OUTPUT  STATISTICAL  PA9AMETEHS  3F  I MCI  °I  EMT  COLLAPSE  PRESSURE 
PRIMT  1 00*  TMEAM.  TMEAML  . TMEAMU.  SO.  SOL.  f O*  I.  P1 1.  P|  01. . p 1 OU# 

P90. P90L. P90U 
PRIMT  106.  1M0FX.ST0ERR 
03  TO  973 

95*  COMF1  OEMCE  I MTERVAL  IS  M 3 T WITHIM  lot  FIR  ROTH  MEA9  AMO  90 


712100  VALUE?  --  THEREFORE  ORTAIM  5 A001TI3MAL  SAM“L?S 
71220  61  !CHECH*lCHFrx»5 

7»230  RETURM 

71240C 

71270  R6  F3RM4T</*IM0,JT  MEAm  AMO  STAMOARO  OEV1ATI09  F3R  FOY*.t> 
712R0  87  F3RMAT</«iM“IJT  MEAM  AMD  'TAMDARD  0EVIATI3M  FOR  S».*3 
71290  90  FORMAT* F9.1. FI 0.2* FI  4. 33 

71310  92  F3RMAT7F9.1.F11.2.F10.2.FI4.33 

71340  9 5 FORMAT* ///. SX»  *FOY*  7X. *P S3* » 6X. *C3LL APSE  TIME*3 

71350  96  FaRMAT<///»SX.*F0Y*»°X»«S*.8X»*PS3*.  6X.*C3LLAPSE  TIM 

71360  100  FORMAT*///.  UX. "STATISTICAL  PROPERTIES  3F  IMClPIEMf  f 3*. 

71370*  //  • 39X.  *9  St  C3MFIDEMCE  LIMITS*./.  7x.*ITEM*.  I8X. 

71380*  ‘VALUE  LOWER  UPPER*.//.*  M£AM*.F29.2. 

71390*  2FI 2*  2* //.  • STAMOARO  OEVl  ATI JM*. FI  3. 2. 2F1 2. 2. //. 

71400*  • 10*  PROBABILITY  VAL  J£«.  3F1 2.  2.  '/» 

71410*  • 90*  PR3RARIL1TY  VALUE*.  3F|  2*R» 

71420  10S  FORMAT*//.  5X,*NJMBER  JF  3BSERVATI  3MS  *.I3./.Sx. 

71430*  «STAMOARO  ERROR  **.FS.23 

71440C 

7(450  999  STOPS  EMO 

71460  FUMCTI3M  XM3RM I <X. A. B3 
71470  IFtX310.20.20 
71 4R0  10  X0»RAMF*-1.03 
71490  20  X I »RAMF* 0 ■ 03 
7150*,  X2*RAMF<0»0> 

71510  Y*S3RT<-2.0*AL3r><XI33«<L  ..<  6. 2R31 R 4*X23  3 
71520  XM3RM1*A*Y*8 
7IS30  RETURM 
71540  EMO 
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PROGRAM  RESTRAN 


OiOOO  PROGRAM  RE«  < INPUT/OUTPUT) 

OIOIOC  THIS  PROGRAM  CALCULATES  THE  RESISTANCE  OF  A REINFORCED  CONCRETE 

CI080C  SLAB  RESTRAINED  AGAINST  LATERAL  MOVEMENT  AT  THE  EDGES 

CI030C 

01050  COMMON  KINC/LOTYPE/KRF/KRAND.TINS.I/Y!  100>.Q.QU/YU/YFAtL.FDC/ 
01052*  ELS/HS.FDY/AREA.EMASS.ZKLM.VSl/VS8.PSO/PDO.PF.PEXT/PC/Tr./TO. 
0105A*  P0/DELAY/3.FPC.FY 

01060  DIMENSION  At80>.V(80)/T(80 >. VS<80 >.UQ(80 >.PN(80> 

01080  COMMON  /RAND/  TIMEC 
OttOOC 

01 10 AC  PRINT  PROGRAM  TITLE.  DATE’  AND  TIME 

01105  5 DA-DATERUDATE)  * CL-CLOCK! 1CL0CK> 

01106  PRINT  60  J/ I DATE. ICLOCK 

01107  603  FORMAT ! ////APROGRAM  RESTRAN  (REVISED  1 2/22/73 )*» 5X/A7/ 5X.A9 > 
01 108C 

01  HOC  * READ  TITLE  AND  COi/TROL  PARAMETERS  * 

01 180  PRINT  67 
01  ICO  READ  68/ TITLE 
OtlAO  PRINT  85 

01150  READ/KINC/LDTYPE/KRF/ XRAWD 
011SSC 

01160  DELAY“0 
01180  CALL  RESIST!  1 ) 

01188  IFCKhAND/NE.  1 1CALL  RF.SIST(8> 

01  IBS  :F(LDTYPE.EQ.0)QCT0  so 
01190  CALL  FORCE! 1> 

01800  IF!KRF.E8.0)G0T0  14 
01810  CALL  FILLCPINT. 1) 

01860  14  IFtKRAND.NE.llGOTO  13 
01870  CALL  F0RCE(4> 

01880  CALL  flANDOM(l> 

01890  34  CALL  H/>  «D0M(8> 

01300  35  CALL  RLS!5T<2> 

01310C 

01380C t MINIMUM/  MAXIMUM.  AND  STARTING  VALUES  ARE  DETERMINED  FOR  CASES 
01330Ct  WHERE  THE  LOAD  CAUSING  INCIPIENT  COLLAPSE  IS  TO  BE  FOUND 
01340  13  IFOCINC.EQ.OIGOTC:  83 
PF-QU 
PFMAX-0 
PFMIN-PF/2.0 
GOTO  80 

PF«(PFMIN*PFMAX 1/8.0 
CALL  FGRCEC8) 

IF(KSF.E8.0)G0T0  84 
CALL  FILL!PINT,8> 


01 350 

01360 

01370 

01380 

01390  16 

01400  80 

01410  83 

01 420 

01430C 

01440CI 

01450C1 

01460  84 

01470 

014C0 

01490 

a isoo 

01510  87 
01580 
01S30 
01540 


INITIALIZE  VALUES  FOR  BETA  METHOD  (BETA- 1/6)  AND  COMPUTE  VALUES 
FOR  FIRST  TIME  INTERVAL  ASStPilNS  ELEMENT  INITIALLY  AT  NEST 
1-1 

TIME-0 

V!l>-0  * Y< I >-C 
DELTA-0.001 
IFCKRF/NE. 1 1G0TC  30 
IF(TIME.GE. (DELAY*. 00001 71G0T0  30 
TIME-TIME*DliTA 
CAL',  FILLtPlNT/3) 

GOTO  87 
01640  30  CALL  RESIST!.'!) 

01 650  A!  I >-0.0  ?.  VS!  1 1-0.0 

01660  T(  D-TIME 

0I680C 

01691CI  PROCEDURE  FOR  ALL  SUBSEQUENT  TIME  INTERVALS 
01780  I !»!♦! 

01710  lFd.LT.8l  100T0  II 

01720  PRINT  48/TIME 

01730  98  F0RMAT(/*J«8l  1 TIKE  «*.F6~3»*J  FAILURE  ASSUMED  TO  NOT  OCLJRO 


01740 

01730 

01760 

01770 

01775 

01780 

01790 

01800 


II 


GOTO  6 

T!*E-TIME*OELTA 
T( 1 1-TIME 
Atn«A(t-i> 
IFtKkF.NE.OlGOTO  10 
CALL  FORCE! 3 > 

PN! I 1-PEXT 
GOTO  8 
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PROGRAM  RESTRAN  (CONTINUED) 


01880  10  CALL  F ILL«PiNT.3J 

01890  PN* I >-P 1NT 

01910  2 CONTINUE 

01920  00  8 JJ-1.10 

01930  Y*n«Y*I-n+DSLTA»V<I-l  >*DELTA*DELTA* t A* I- l >/3. *A* t>/6. > 

01940  CALI  P.ESISK3) 

019*0  A ANEW<AREA<XFN<  n-Ol/IZMA^ZFLMl 

01970  ADELTA-ANEW-AU ! 

01980  A*I)»ANEW 

01985  1F*AN£V.E0.C IPRINT. *1985*. TIME.PN* 1 1 . O.ZHASS. ZKLM. Y< 1 >,A*I-1 > 

01990  IF(ABS<ADELTA/*ANEW*1E-10>>.LT.0.01>GOTO  9 

02000  8 CONTINUE 

02010  A*!>«AN£tf-AD£I.TA/2.0 

02020  PRINT  RO.TIME.PF.AUI.YOI 

02030  9 CONTINUE 

02040  YC I >«Y< 1-1 )*DELTA»V* !- 1 >*DEL1 A*DELTA»< AC  1- 1 1/3. *A( 1 1/6. I 

02050  V*I>«V*I-1 )«DELTA«(A<t>*A(!-l >1/2.0 

02060  VS( 1 >»4.0*AREA*t VS1*PN( 1 >*VS8*Q> 

02070  QQ(t)«a 

02090C 

02100CI  CHECK  FOR  MAX! RUM  DEFLECTION  OR  FAILURE 

02110CI  IF  MAXIMUM  DEFLECTION  REACHED.  HALL  DID  NOT  FAIL 

02120  IFtYC I I.LE.Y* I-l I.AND.PNfl >.LE.PN*I-l > IGOTO  6 

02130  IFtYttl.LT.OIGOTO  6 

02135  IF* Y* 1 1 *GE. YFAILIGOTO  7 

02140  IF* TIME-DELAY.GE. 0.010 >DELTA<0. 002 

02160  IF* TIME-DELAY* GE«0 *020  > DELTA "0*00 5 

02170  1 F( TIME- DELAY. GE.O. 100 >DELT4<0.0 10 

02180  IF<TIME-DELAY.G£.0.500>DELTA»0.050 

02190CI  IF  FAILURE  DEFLECTION  REACHED.  ELEMENT  FAILED 

02210  GOTO  1 

02220C 

02230CI  INTERVAL  HALVING  PROCEDURE  TO  DETERMINE  LOAD  CAUSING  INCIPIENT 

02240C t COLLAPSE  FOR  CASES  WHERE  DESIRED 

02250CI  ELEMENT  DID  NOT  FAIL  — SET  PFMIN  TO  PF 

02860  6 CONTINUE 

02280  IF*KINC.EO.O)GOTO  18 

02890  36  PFMIN-PF 

02300  IF(PFMAX*GT.0)G0T0  16 

02310  PF>2.0*PF 

02320  GOTO  20 

02330Ct  ELEMENT  FAILED  — SET  PFMAX  TO  PF 

02340  7 CONTINUE 

08350  TIMEC'TIME 

02370  IF*KINC.EO.OIGOTO  18 

02380  37  PFMAX-PF 

02390C I CHECK  TO  SEE  IF  LOAD  RANGE  IS  WITHIN  DESIRED  ACCURACY 

02400  17  IFttPFMAX-PFMINI/PFMIN.GT. 0.01 IGOTO  16 

02410  IFtKRAND.NE. 1 IGOTO  18 

02480  CALL  RANDOM* 31 

02430  GOTO  34 

02440C 

02450CI  OUTPUT  DATA  INCLUDES  THE  MAXIMUM  DEFLECTION  AND  TIME  OF 
02460CI  OCCURANCE  FOR  A NON-FAILING  ELEMENT  OR  THE  TIME  AND  VELOCITY 
08470CI  AT  COLLAPSE  FOR  A FAILING  ELEMENT.  OPTIONAL  OUTPUT  IS  THE 
08480Ct  ENTIRE  BEHAVIOR  TIME-HISTORY. 

08490C 

02500C t OUTPUT  LOAD  DATA 
08510  18  CALL  F0RCE<4> 

02S20U 

02530C t OUTPUT  FINAL  RESULTS 

08540  IF*Y*n.LT.YFAIL)PRINT  70.Y*I).T*1> 

02550  IFtYtl  )*GE.YFAIL)PRINT  71  .-T*I  I.Vtl  I 

C8S70  GOTO  48 

08577C 

02578C  CHECK  TO  SEE  IF  ENTIRE  TIME-HISTORY  IS  DESIRED 

08580  48  PRINT  78 

08590  READ. IPRINT 

08(00  IF* IPRINT. Efl.O IGOTO  85 

02680  PRINT  76.  *T<  JI.PNtJI.A*  JI.V*  J>»  Y*  JI.CQf.JI.  VSCOl.J-l.  I ) 

09690  85  PRINT  77 
08700  GOTO  5 
. HOC 
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02730  68  F0RMAKA59) 

02740  70  F0RMAT//-N0  FAILURE  - MAX  DEFLECTION  0F-.F6.2. 

02750*  • IN.  REACHED  AT*F7.3.‘  SEC*) 

02760  71  FORMAT!/»FAILUKE  OCCIWRED  AT-.F7.3.*  SEC  (FINAL  VELOCITY  -*, 
02770*  F7.2*  IN./SEC)*) 

02780  72  rOftMAT(/*IS  TINE  HISTORY  DESIRED  (YES-1.  »0-0>*.t) 

02830  76  FORMAT!/*  TIME  PRESSURE  ACCELERATION  VELOCITY  * 

02840*  ^DISPLACEMENT  00  VS*./. 

028SO*  (F6.3.F9. 3. FI 2. 1.FS  2. 2.FI2.4.FI0.2.F9.0) ) 

02830  77  FORMAT!///. 7<* *)) 

02870  80  FORMAT! /‘ACCELERATION  NOT  CONVERSING  AT  TIME  •*.F6.3. 

02880*  * SIC  !PF  -*.F7.3.*  PSD*/*  A! I)  SET  EQUAL  TO*. 

02890*  F8.1.*  (A VC  OF  LAST  2 ITERATIONS)*/*  Y(!>  -». 

02900*  F8.4.0  IN.*) 

02910  8$  FORMAT! /‘INPUT  KINC.LDTYf E.KRF.KRAND! I-RANDOM)*. t ) 

029S0C 

03000C  OUTPUT  RESISTANCE  FUNCTION  (LDTYPE-O) 

03010  50  l-l 
0?J*0  PRINT  60 

OJ030  52  READ. YSTART. VEND. YINC 
03040  IF!YINC.F.0.b)a0T0  25 
03050  PRINT  62 
03060  Y!D«rSTART 
03070  54  CALL  RESIST! 3) 

03080  PRINT  63. Y( 1 ).C 

03090  Y! I )-Y(  1 )*YINC 

03100  1F(Y(D.LE.YEND)GOTO  54 

03110  PRINT  61 

03120  GOTO  52 

031 30C 

03200  60  F0RMAT(//*tF  INTERMEDIATE  VALUES  OF  RESISTANCE  FUNCTION  ARE  •* 
03210*  *70  EE  PRINTED.*/* INPUT  STARTING.  ENDING.  AND  INCREMENTAL  *. 

03320*  ^DEFLECTION  VALUES*/*(IF  NO  INTERMEDIATE  VALUES  ARE  • 

03230*  *T0  BE  PRINTED.  INPUT  ZEROS)*) 

03240  61  FORMAT ( /*MORE  VALUES*. t> 

03LZC  62  FORMAT! //‘DEFLECTION  UN.  )*.SX. ‘RESISTANCE  (PSI)*) 

03260  63  F0RMAT(FU.4.F21.2) 

03C70C 

03500  999  STOP 
03510  END 

10000  SUBROUTINE  FORCE!  IENTP.Y) 

lOOIOC  THIS  SUBROUTINE  INPUTS  THE  LOAD  PARAMETERS  AND  DETERMINES 
10020C  THE  LOAD  AT  A GIVEN  TIME  FOR  THE  FOLLOHING  LOAD  TYPES! 

10030C  1.  IDEALIZED  BLAST  LOAD  (FRONT  OR  SIDE  PACE) 

10040C 

10050  COMMON  KINC.LDTYPE.KRF.KRAND. TIME. I »Y(  100).0.0U.YU.YFAIL.FDC. 
10052*  ELS. HS.FDY. AREA. ZMASS.ZKLM. VS1 . VS2.PS0.PD0.PR.P.PC.TC. TO. 

10054 1 PO. DELAY. S.FPC.FY 
10060  DIMENSION  TT(20).PP(20) 
tOt 20C 

10130  IF(LDTYPE.EQ.S)GOTO  500 
I0140C 

10150  GOTO! 100.200.300. 4). 1 ENTRY 
I0160C 

101  TOC  • INPUT  LOAD  PARAMETERS  • 

I0180C!  LOCATION  I.  FRONT  FACE  LOADING  (USED  IN  ROOM>FILLIN«  PROCEDURE) 
10190  100  V-1000.0  S PO-14.7  * CO-1 120.0 
10200  IFtKRF.NE.  DOOTO  102 
10210  LOC-l 

10220  IF1KRAND.E0. 1 )RETURN 
10230  PRINT  600 
10240  READ.S 
10250  GOTO  105 

I0260CI  LOCATION  2.  TOP  FACE  LOADING 

10265  102  CD-0  * LOC-2 

10270  ZLEN-ZLS/ 12.0 

10275  105  IFtKINC.EO. I )RETURM 

10280  PRINT  610 

10285  RCAD.PSO 

10290  PR-2.0*PS0*!7.0*P0*4.O*PSO)/(7.0*PO*PS0) 

10295  GOTO  215 
UOOOC 

11010C  CALCULATE  LOAD  PROPERTIES  FOR  GIVEN  PEAK  PRESSURE 
11030  200  Q0T0!205.210).L\)C 
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11040  SOS  PS0a<PR-14.04P0*S8ATO96.0*P0*P0*t96.0*P0*PR*PRaPR>>/ie.0 
11050  GOTO  SIS 
11060  S10  PSOaPR 

11070  315  PDOaS.S*PSO*PSO/t7.O*P0aPSO) 

11080  U*C0*S8RT<l.O*t6.04PSO>/l7.O*P0>> 

11090  T0-V**0«3333/(2.2399«0.186S*PSO> 

11100  GOTO  < 8S0  #625  > *LOC 
11110  280  TC*3.0*S/U 

11120  PC*PSO*<l-TC/TOJ*EXP<-TC/TO>»PDO*tl-TC.  .0>**84tXP(-2*TC/T0> 

11130  CD*1.0 

11140  RETURN 

11150  285  TA*ZLEN/U 

11140  TA2-TA/3.0 

11170  TA2T0»T42/T0 

11180  PAapSO*{ I “T4270>4EXP(»T42T0)*CDapD0aC l-TA8T0)*48*EXPt *8»TA8T0) 

11190  RETURN 

18000C 

18010C  CALCULATE  LOAD 
12030  300  G0T0<305«310)»L0C 
18040  305  TTOaTIME/TO 
12050  irCTlKE.GTeTOGOTO  320 
18C60  P*PC*<TC-TIMEJ*tPR-PC>/TC 
12070  RETURN 

12080  310  TT0*CTIME«TA2)/T0 
12090  IFITIHE.GT.TAIGOTO  320 
12100  PaPA4TIME/TA 
12110  RETURN 

12120  320  IF(TT0.GE.1.0)G0T0  330 

12130  P-PSG*tl-TTO>#EXP<-TTO>*CD*PDO*<l-TTO>*a24EXPl-2*TTO> 

12150  RETURN 
12160  330  P-0 
12170  RETURN 
13000C 

13010C  PRINT  LOAD  DATA 

13020  4 IPIKINC.EO.OIGOTO  400 

13030  PRINT  640.LDTYPE 

13040  GOTO  410 

13050  400  PRINT  64S.LDTYPE 

13060  410  CONTINUE 

13070  415  GOTO! 420#  425 )#LOC 

13080  420  PRINT  650 

13090  nom  430 

13100  425  PRINT  655 

13110  430  PRINT  660«V«P0*C0 

13120  IPIKRAND.NE.OIRETURN 

13130  GOTO  C 435# 440 ) #LOC 

13140  435  PRINT  66S»S«TC#PR 

13150  GOTO  445 

13160  440  PRINT  670#ZLEN.TA#PA 
13170  445  PRINT  675,U»T0.CD»PS0»PD0 
13180  RETURN 
13500C 

1 3510C  LOAD  TYPE  5 --  ARBITRARY  LOAD  SHAPE 
13520  500  GOTOtS10#580#530#S40I# I ENTRY 
13S30C 

13540C  INPUT  LOAD  DATA 
13550  510  PRINT  680 

13560  READ*NPOINT#  <TT< J)»PP1J>» J«t»NPOINT> 

13570  FACTOR* 1.0 

13580  1F<KINC»EQ«0 1G0T0  SIR 

13590  PMAX-PPtl> 

13600  DO  515  J-8.N."0INT 

13610  515  IFIPPIJl.GT.PHAXlPNAX-PPtJl 

13620  516  PXappI8>'PPn> 

13630  TXaTT<2»-TT<l» 

13540  JJ-1 
13650  RETURN 
I3660C 

l 36T0C  CALCULATE  MAXIMUM  LOAD 
13580  520  FACTORaPRSPMAX 
13690  GOTO  SIS 
13700  RETURN 
137  IOC 

13T20C  CALCULATE  LOAD 
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TO  »*<F 6.3**  see 


13730  530  IF<TIME<LE<TT< JJ*1 )>GOTO  535 
1 3740 

13750  PX«PP<JJ*1)-PP<JJ) 

13760  TX-TT<JJ*1 )-TT<JJ> 

13765  IF<TX<EG<0)TX«1E-10 
13770  GOTO  530 

13780  535  P«FACTOR*<PP<JJ>*!TIME-TT< JJIXPX/TX) 

13790  RETURN 
13800C 

13810C  PRINT  LOAD  DATA 

13815  540  IF<K1NC<EQ<I ) PRINT  640<LDTYPE 

13880  IF<KINC<EQ<01PRINT  045<LDTYPE 

13885  PRINT  690 

13830  DO  545  J»1<NP0INT 

13840  P«FACTOR*PP< J) 

13850  545  PRINT  695<TT<J1<P 

13860  RETURN 

14000C 

14010  600  FORMAT <//< INPUT  S*< • 1 
14080  510  FORMAT!/* INPUT  PSO*< • 1 

14070  640  FORMAT! /*L0AD  CAUSING  INCIPIENT  FAILURE  IS  AS  FOLLOWSl*< 
14071*  /<3X<*L0AD  TYPE  NUMBER*<I81 

14080  645  FORMAT! /*PR0PERTIES  OF  LOAD  ACTING  ON  WALL  ARE  AS  F0LL0VSl*< 
14081*  Z<5X<<L0AD  TYPE  NUMBER*<!8! 

14090  650  F0RMAT<8X<<< FRONT  FACE1*! 

14100  655  F0RMAT<5X<4<SIDE  OR  TOP  FACE141 

14110  660  F0RMAT<10X<<W  >*.F8.1<*  KT  PO  ■*<F6.8<*  PSI  CO  **< 
14111*  F7  < 1 < * FPS41 

14180  665  F0RMAT<10X<<S  «*.F6<1<*  FT  TC  ■*<F6.3<*  SEC  PR  ■*< 

14181*  F7.3<<  PSIO 

14130  670  F0RMAT<1OX<<L  ■*<F6.1<*  FT  TA  •*<F6<3<*  SEC  PA  • *< 

14131*  F7.3<*  PSIO 

14140  675  F0RKAT<10X<<U  »<<F7. t»<  FPS  TO  >*<F6.3<*  SEC  CD  •*< 
14141*  FS.  1<Z<8X<<PS0  ■*<F7.3<*  PSI  PDO  «*<F7.3<*  PSIO 
14150  680  F0<WAT<ZZ<INPUT  NUMBER  OF  LOAD  POINTS  AND  THE  TIME  AND  * 
14151*  ^PRESSURE  AT  EACH  POINT*) 

14160  690  F0RMAT<Z1OX<<TIME  PRESSURE*) 

14170  695  F0RMAT<F1 5<3<F18<81 
15000  END 

80000  SUBROUTINE  FILL(P3< I ENTRY) 

•0010  RETURN 
•0080  END 

30000  SUBROUTINE  RESIST  < I ENTRY) 

30010C  THIS  SUBROUTINE  DETERMINES  THE  RESISTANCE  FUNCTION* 

30080C  TRANSFORMATION  FACTO RRS<  AND  REACTION  COEFFICIENTS 
30030C  FOR  A LONGITUDINALLY  RESTRAINED  REINFORCED  CONCRETE  SLAB 
30040C 

30050  COMMON  KINC<LOTYPE<KRF<XRAND<TIME<I<Y< IOO)<Q<QU< YU<YFAIL<FDC< 
30038*  ELS<HS<FDY<AREA<  IMASS<ZKLM<V51<  VS8<PSO<PDO<PR<PEXT<PC<TC<TO< 
30054*  PO<DELAY<S<FPC<FY 

30080  COMMON  ZMOMZ  AS<4)<D<4).APS;4)<DP<4><KU<4)>R<4). 

30085*  K1 <K8<K3<EPSC< ES<FPS<KUD<E< 4) 

30090  REAL  MU<K1<K<<K3<KUD<N<NUX0<NUXBLL<NUXAVG<NUZ0<NUZLSP<NUZAV0 

30095  REAL  KU18AR<MU8 8AR<HU3BAR<NU<8AR<KU1 <MU3<NB<KT 

30100C 

30110  GOTO  < 1<8<3)<  I ENTRY 
30I80C 

30 1 30 C ENTRY  1.  INPUT  AND  ECHO  SLAB  AND  REINFORCEMENT  PROPERTIES 

30150  I PRINT  600 

30160  READ<ZLS<ZLL<HS<FPC<FY<DIF 

30165  PRINT  670 

30170  DO  100  I«l<4 

30180  PRINT  610< 1 

30190  P<I)«0.0 

30800  READ* AS < I ><D<  I >< APS!  I )<DP< I ) 

30S40C  SLAB  ASSUMED  TO  BE  RESTRAINED  AT  CENTERLINE  OF  CROSS  SECTION 

308S0  EUl-O.O 

30860  100  CONTINUE 

3086*  PRINT  711 

30855  <1EAD<ASCZ<ASCX 

30866  ASCZ>ASCZ/!8.0  * ASCX-ASCX/18.0 

30870  PRINT  608 

30880  READ<SZ<SX 

308R1C 
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302S2C  CALCULATE  VARIOUS  CONSTANTS 

30283  DIF«1.0*DIF/100.0 

30285  FDC*DIF*FPC  5 FDY«DIF*FY 

303C0  ALT*ZLS/ZLL 

30310  ALP2*ALP*ALP 

30315  ES-29E6 

30318  AREA«ZLS*ZLL 

30319  ZNASS*150.0*AREA*HS/< 386 .07*1728 .0) 

30320C 

30 32 1C  OUTPUT  SLAB  PROPERTIES 

30322  PRINT  620.ZLS.ZLL.HS.FDC.FDY 

30323  PRINT  630 

30324  DO  104  1*1.4 

30325  IF(AS<t).E0.0  >GOTO  104 

30326  P*AS< I >/C 1 2.0*D( I ) ) S PP*APS< I >/< 12.0*D< I > ) 

30327  PRINT  640# I.  A5( I>.P.D<1 ). APSC I).PP.DP<I> 

30328C  CHANGE  UNITS  OF  REINFORCEMENT  FROM  SO. IN. /FT  TO  SO* IN. /IN. 

30329  AS< I >*AS< 1 1/12.0  5 APS( I l-APSC 1 1/12.0 

30330  104  CONTINUE 
30332  RETURN 
30340C 

30350C  ENTRY  2.  DETERMINE  PROPERTIES  DEPENDENT  UPON  FDY  AND  FDC 
30360  2 EC-57619. 03*S0RT<FPC> 

30070  N-ES/EC 

30380  FDC*DIF*FPC  t FDY«DIF*FY 
30390  K1-0.94-FDC/26E3 
30400  K2-0.50-FDC/SE4 

30410  K3-<3900.0*0.35*FDC)/<3E3*0.62*FDC-FDC*FDC/26E3> 

30420  EPSC-0.004-FDC/6SE6 
30430  DO  110  1*1.4 

30440  110  CALL  MOMENT  <0.0. I / FDY. FDC. HS > 

30450  IF<MU< 1 ) .GT.O.OIGOTO  120 
30460  OUTERM-O.O 

30470  8*0 . 5* < SORT<  3 . 0*ALP2*ALP2**2  > -ALP2 > 

30480  GOTO  108 

30490  120  GMU*MU<2)/MU<I> 

30500C 

30510C I DETERMINE  POSITION  OF  YIELD  LINES  AND  ULTIMATE  RESISTANCE 
30S20CI  COEFFICIENTS  FOR  TWO-WAY  WALLS 
30530  ZI 1*MUC4)/MU<2> 

30540  ZI3*MU(3)/MU<1> 

30550  GAMMA12*2.0*S0RT<l.0*ZIl> 

30560  GAMMA34-2.0*S0RT( I .0*ZI3> 

30570  GRAT*GAMMA12/GAMMA34 

30 5 80  B*S0RTU*ZI1  >*CGHU*ALP2/GAHHA34)*<S0RT<GRAT**2*3/ 

30530*  <GMU*ALP2))-GRAT> 

30600CI  IF  BETA  IS  GREATER  THAN  0.5  ASSUMPTION  OF  CRACK  PATTERN  A 

306  IOC  I NOT  VALID  AND  CRACK  PATTERN  B IS  ASSUMED  TO  OCCUR 
30620  IFCB.LE.O.SIGOTO  105 

30630C 

30640CI  CRACK  PATTERN  B 
30650  KRAK-1 

30660  8*SQRT< I .0*Z 1 3 >*< SORT! I .0/GRAT**2*GMU*ALP2*3.0 >- 1 .O/GRAT) 

30670*  /<GMU*ALP2*GAMMA12> 

30680  0UTEHM*6.0*GAHHAlB**2*ALP*GHU/<SaRTC3*J/<GHU*ALP8*GRAT**2>> 

30690*  -l • 0/ < SORT <GHU)*ALP*G RAT) )**2 

30695  IFtKFiAND.NE.  1 >PRINT  623 

30696  623  FORMAT! /*CRACK  PATTERN  8 — RESULTS  NOT  FULLY  CHECKED  OUT*) 
30700  OOTO  108 

307  IOC 

30720CI  CRACK  PATTERN  A 
30730  105  CONTINUE 
30740  KRAX*0 

30750  0UTERM«6.0*GAHMA34**2/<ALP*CSaRT<3*GMU*ALP2*GRAT**2) 

30760*  -ALP*ORAT*SGRT<GMU) )**2) 

30765C 

30770C  SECONDARY  RESISTANCE 
30780  108  aS*2UTERM*MU< 1 )/<ZLS*ZLL) 

3078SC 

30790C  DETERMINE  TRANSFORMATION  FACTORS  AND  DYNAMIC  REACTION  COEFFICIENS 
30765C  TRANSFORMATION  FACTORS  AND  DYNAMIC  REACTION  COEFFICIENTS 
30798  CALL  TRANS  <8.ZLS.ZLL.KRAK.ZKLMP.VMP.VL2P.V5!P.VS2P> 

30800  DO  200  1*1.4 

308'  R< I )*<AS< I )-APS< I ) )*FDY/(K3*FDC) 
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30S20  200  CONTINUE 

30830C  SET  Et.ASTIC  STRAIN  TO  ZERO 

30840  EAX-0.0  S EAZ«0  3 

30850  SXP-SX*EAX  S SZP-SZ+EAZ 

30852c 

30853C  CALCULATE  DEFLECTION  AT  ULTIMATE  RESISTANCE 

30  8 55  I YU- 1 

30858C  Z-DIREC7I0N  STRIPS 

30860  TERM1-HS*<R<  3)-R< I > >/Kl 

30G70  TERM2-0.5*ZLS4ZLS4<EPSC4<1.0*SZ>*SZP> 

30872  GOTO  206 

30873C  X-DIRECTION  STRIPS 

30874  202  IYU-2 

30880  TERM1«HS*<R<4)»R<2)>/KI 

30890  TERM2-B4Zt.L4ZLL4<EPSC*C2<04B*SX-2.04B4EAX*EAX>*SXP> 

30900  206  IF<TERM2<GT<TERM14TERM1 )G0T0  210 
30910  YU-TERMI-S8RT<TERMI442-TERM2) 

30920  IF<YU<LT<0<424HS3G0T0  235 

3092SC  EMPIRICAL  UPPER  BOUND  OF  0.42  TIMES  SLAB  THICKNESS  FOR  YD 
30930  810  YU-0.424HS 
30935  235  CONTINUE 
30937C 

30938C  CALCULATE  IN'PLANE  COMPRESSIVE  FORCES 

30940  NUZ0-O.54K34FDC4<<MS-0.254SZP4ZLS4ZLS/YUJ4KI-R<l»-R<3»» 

30950  1F<NUZO.LT.O)NUZO-0 
30960  IF<NUZ0<E0<0<AND<1YU<EQ<1 JGOTO  202 
30970  NUZLS2-NUE0*0.2S4K34FDC4K14YU 
30980  IF<NUZLS2<LT<0 JNUZLS2-0 
30990  NUZAVGnO.S4<NUEO*NUZLS2) 

31030  NUX0-0<S4K34FDC4<<HS*0<54B4SXP4ZLL4ZLL/YU>4Kl-R<2><’R<4>) 

31040  1F<NUX0<LT<0 3NUXO-0 
31050  NUXBLL-NUXO'O.  254K34FDC*K1  *YU 
31060  IF<NUXBLL<LT<0 3NUXBLL-0 
31110  MUXAVG-0.54<NUX0*NUXBLL> 

31  USC 

31120C  CALCULATE  ULTIMATE  COMPRESStVE  MEMBRANE  RESISTANCE 
31130  CALL  MOMENT  <KUXAVG<2<F0Y.F0C.HS> 

31140  MU2BAR-MU<2) 

31150  CALL  MOMENT  <tlUXAVQ,4.F0Y.FDC,KS> 

31160  MU4BAR-MU14) 

31170  CALL  MOMENT  <NUZAVG< 1<FDY<FDC<HS3 
31180  MU1BAR-MU<  1 3 

31190  CALL  MOMENT  <NUZAVG< 3.FDY.FDC.HS) 

31200  MU3BAR-MU1 3 * 

31210  CALL  MOMENT  <NUZLS2> 1 »FDY.FDC»HS> 

31220  MU1-MU<13 

31230  CALL  MOMENT  <NUZ0<3.FDY>FDC<HS> 

31240  MU3-MU13) 

31850  QU*  12.0/ <ZLS*ZLS*<  3<0~2 <0*83 >4<  < <ZLS/ZLL>**2/B)4<MUflBAR 
31240*  *MU4BAR*YU*<2<04NUXBLL*NUX0 3/6<03*4.0*B4<MUI8AIt*MU3BAR 
31270*  •YU*<2.0*NUCLS2*NUZ0)/6.0>*2<0*<I<0>2.0*B>*<MU1*MU3*YU*NUZLS2>> 
31430C 

31500C  TENSILE  MEMBRANE  BEHAVIOR 
31510  TZ*ASCZ*FDY 
31520  TX-ASCX4FDY 

31525  IF<TZ<EQ<0<0R<TX<EQ<0 3G0T0  312 
31530  C1-3.141S9*SQR  <TZ/TX>»ZLL/<2.0*ZLS> 

31540  KT-0 

31550  DO  310  <M*1<13<  « 

31560  JJC-<M*2 

31570  C0SHJJ*0.5*<EXP<JJ*C1>*EXP<-JJ*CI»> 

31580  C0SHJU2-0 <S4<EXP<<M24C I 3*EXP<-<M2»C1 3 3 

31590  C2»<1.0-l.O/COSHJJ>/JJ443-<l.o-l.O/COSHJJ2>/JJ2443 

3160L  310  KT*KT*C8 

31610  KT-1 <543< 141 59443/ <4<04KT) 

31612  GOTO  314 
31614  312  KT-t. 548.0 
31616  1F<TZ<E0<0  JGOTO  316 
3I618C 

31619C  SECONDARY  AND  "ENSILE  MEMBRANE  DEFLECTION 
31620  314  YT-QS4ZLS4ZLS/<KT4TZ) 

31630  YFAIL-O. 15*SLS 

33640  QFAIL-YFAIL4KT*TZ/CZLS4ZLS) 

31642  GOTO  317 
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31644  316  IF(TX.E0.0)G0T0  316 

31645C  NO  TENSILE  MEMBRANE  REINFORCEMENT  --  SET  YS*YT*YFAIL*HS 
31646  YT*Q5*ZLL*ZLL/ ( KT*TX 1 
31648  YFAIL«0.15*ZLL 

31650  0FA1L«YFAIL*KT*TX/(ZLL*ZLL) 

31651  317  IF(YT.LT.3.0*YU)YS*YT 

31652  IF(YT.GT.3.0*YU)YS*3.0*YU 

31653  GOTO  320 

316S4C  NO  TENSILE  MEMBRANE  REINFORCEMENT  - SET  YS*YFAIL»HS 

31656  318  YS-HS  S YT«HS  S YFAI'.-HS  S QFAIL-0.0 

31658C 

31660C  ADJUST  LOAD-DEFLECTION  CURVE  FOR  SLAB  DEAD  LOAD 
31670  320  QDL«150.0*HS/I72.0 

31672  YDL«YU-YU*(1<0-(QDL/0U)**1.8 >**(!. 0/1. 8) 

31674  YU-YU-YDL  S Y5*YS-YDL  S YT*YT-YDL  S YFAIL-YFAIL- .DL 
31676  QU»QU-ODL  S QS«QS-QDL  S QFAIL-QFAIL-GDL 
31678  IF1KRAND.NE. 1 1PRINT  633.0DL.YDL 
31680C 

31700C  OUTPUT  LOAD-DEFLECTION  CURVE 
31710  IFIKRANP.EO. I 1GOTO  335 

31720  IFCYS.EO.YTIPRINT  660.QU.YU. QS. YS.QFAIL. YFAIL 
31730  1FCYS.NE.YT1PRINT  660.QU.  YU, QS.YS.QS.YT.QFAIL, YFAIL 
31740  335  RETURN 
31750C 

31800  600  FORMAT! /• INPUT  LS»LL.HS,F*C»FY»DIF(X)*, * > 

31810  602  FORMAT ( /• INPUT  LONGITUDINAL  EDGE  DISPLACEMENT  (PER  UNIT  *. 
3181 1 ♦ *LENGTH)*/«IN  SHORT  AND  LONG  DIRECTIONS*. • > 

31820  610  FORMAT! 16. * ) 

31830  620  FORMAT(//*PROPERTIES  OF  LONGITUDINALLY  RESTRAINED  * 

•REINFORCED  CONCRETE  SLAB*./.*  LS  «*.F6.1.*  IN.  LL  -*. 
F6. 1 .*  IN.*.6X.*HS  •*,F6.1»*  IN.*./.*  FDC  -*.F7.1.*  PSI*. 

• FDY  «*»F8«1»*  PSI*> 


31840* 

31850* 

31860* 


31870  630  FORMAT(/*REINFORCEMENT  VALUES*.  SECTION 


AS 


(P>*» 


31880* 

31890* 


7X.*D*.BX.*A'S  (P'lA.TX.AD^./.RX.AISO  IN./FT)*.  10X. 
•(IN.)  (SO  IN./FT)*.10X.*(tN.)*> 

31895  633  FCRMAT(/*00L  -*.F6.2.*  PSI  YDL  «*.F8«4»*  IN.*) 

31900  640  F0RMAT(t5«Fl 1 .4.*  !*.F5.4.*)*.F8.3.F10«4.*  (*.F5.4.*)*. 


31910* 


F8.3) 


31915  660  FORMAT ( /*LOAD-DEFLEC ’ N CURVE*,/. 4X.*0  (PSD  Y (IN.)*, 


31916* 


/. (F9.2.F12.4) ) 

31920  670  FORMAT(/*INPUT  AS.  D.  APS,  AND  DP  FOR  FOLLOWING  SECTIONS*) 
31930  711  FORHAT!/* INPUT  CONTINUOUS  TENSILE  MEMBRANE  REINFORCEMENT  *. 
•(SO  IN./FT)*/*IN  SHORT  AND  LONG  DIRECTIONS*.*) 


31940* 
31990C 
32000C 
320  IOC 
32020C 
32025  3 


ENTRY  3. 


DETERMINE  THE  RESISTANCE  (PER  UNIT  AREA) 
OF  THE  SLAB  AS  A FUNCTION  OF  Y(I) 


IF(Y(I).LT.O.OR.Y(I).GT.YFAIL)GOTO  530 
32030  IF(Y(!).GE.YU)GOTO  510 
32035  ZKLM«ZKLMP 
32040C 

32050C  COMPRESSIVE  MEMBRANE  RESISTANCE 
32060  C*QU*( l .0-! I .0-Y( I )/YU)**l .8)**( 1 .0/ 1 .8) 

32090  RETURN 
32100C 

32110  510  IF(Y(t).GE.YS)GOTO  520 
32120C 

32I30C  SECONDARY  RESISTANCE 

32140  0-0.5*(OU*OS*(OU-OS)*COS(3.1416*(Y(I >-YU)/(YS-YU> > ) 

32170  RETURN 

32180C 

32190  580  IF(Y(I).GT.YT)GOTO  525 
3E192C 

32194C  PLASTIC  RESISTANCE 
32196  0*QS 
32198  RETURN 
32200C 

322 IOC  TENSILE  MEMBRANE  RESISTANCE 

32220  585  0*0S*(Y( I )-YT)*(OFAIL-OS)/(YFAIL-YT) 

32250  RETURN 
32260C 

32270C  FAILURE  (SET  RESISTANCE  TO  VERY  SMALL  VALUE) 

38280  530  0>1E-U 
32290  RETURN 
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33000  END 

35000  SUBROUTINE  MOMENT  CPV.I.FDY.FDC.HS) 

350 IOC  THIS  SUBROUTINE  CALCULATES  THE  ULTIMATE  MOMENT  CAPACITY  MR 
35020C  REQUIRED  SECTIONS.  INCLUDED  ARE  THE  EFFECT  OF  IN-PLANE  FORCES 
3S030C  f.l  AN  ECCENTRICITY  Ed)  FROM  THE  CROSS  SECTION  CENTERLINE. 

35040  rjMMON  /MOM/  AS<4).0'4),APS<4).DP<4>.MUC4)»R(4). 

3505^ » K1.K2.K3.EPSC.ES.FPS.KUD.EC4) 

3SC60  REAL  MU.K1.K2.K3. HUD 
3S090C 

35100  IF(ASd).E0.0>G0T0  170 

3S1I0CI  ALL  PROPERTIES  ARE  COMPUTED  FOR  A UNIT  WIDTH 
35120  TENS«AS< I )*FDY*PV 
35130  IFCAPSt I ).LE.O)GOTO  150 
351 40C 

351 SOC  SECTION  HAS  COMPRESSION  REINFORCEMENT 
35160  C-K1*K3*FDC*DP<I) 

35170  TERMi*0«S*CTENS/APS< I )*ES*EPSC > 

35180  TEHH2«ES*EPSC*<TENS-C)/APSd) 

35190CI  DETERMINE  LOCATION  OF  NEUTRAL  AXIS 

35200  IFCTENS.LE.OGOTO  140 

35210C 

35220Ct  KUD  * D* 

35230  FPS»TEHMl*K3*FDC/2«0-S8RT<  CTERM1 *K34FDC/8.0)**2 
35240*  -CTERM8*ES*EPSC*K3*FDC) ) 

3S250CI  F*S  MUST  BE  «•  FDY 
35260  IFCFPS«LT«FDY)GOTO  130 
35270  FPS«FDY 

35280  130  TPS-APSCI)*<FPS-K3*FDC> 

35290  KUD«CTENS-TPS)/CX1*K3*FDC) 

35300  MU( I )-AS< I )*FDY*C  DC 1 >-K2*KUD)*APSC I )*FPS*CK2*KUD-DP< I ) > 

35310*  *PW*C0.5*HS-K2*KUD*Ed)) 

35320  RETURN 
3S330C 

353400  KUD  « D* 

35350  140  FPS«- TERM 1 *5QRT C TERM 1 442-TERM2 ) 

353600  F*S  MUST  BE  «-  FDY 
35370  IFCFPS.LT.FDY)GOTO  145 
35380  FPS-FDY 

35390  145  TERM3-TENS*APSd)*FPS 
35400  KUD>TERM3/CKI*K3*F0C) 

35410  MUC I >-ASC  I )*FDY*CDC  I )-K2*KUD)-APSd  )*FPS*CK2*KUD-DP(  I ) ) 

35420*  *PV*(0.S*HS-KB*KUD»E(I)> 

35430  RETURN 
35440C 

3 54 SOC  SECTION  HAS  NO  COMPRESSION  REINFORCEMENT 
35460  150  TERM1“0.5*CES*EPSC*PV/ASC I )> 

35470  FS*-TERM1 *SQRTC TERM1 **2*ES*EPSC*(K1 *K3*FDC*D( l >-PV)/ASC I ) ) 

35480  IFCFS.LT.FDY)GOTO  160 
35490  FS-FDY 

35500  160  IFCFS.LT.-FDY)FS— FDY 
3CS10  KUD«CASCI>*FS*PV)/CX1*X3*FDC> 

35520  IFCKUD.GT.HS)PRINT.*KUD  IS  GREATER  THAN  HS* 

355 JO  MUC I )«ASC I >*FS*CDC I )-K2*KUD>*PV*C0.5*HS-K2*KUD*EC I )) 

35550  RETURN 
35560C 

3556SC  SECTION  HAS  NO  REINFORCEMENT 
35570  170  KUD*PV/CK1*K3*FDC> 

35580  MUC I )-PV*CP,. 5*HS-K2*KUD*EC 1 ) > 

35590  RETURN 

35600  680  F0RHATC4MUC*. 1 1 .*>  «*»F10. t.5X»*FPS  •4.F10.1.5X. 

35610*  *KUD  -4.F10.3) 

35420  685  F0RMATC4MUC*. I ».*)  -4.F10. 1.6X.4FS  *4.FI0.1.SX. 

35430*  4KUD  -4.F10.3) 

35440  490  FORHATC*HU<*. 1 1*4)  -4.F10.1) 

35650  END 

50900  SUBROUTINE  TRANS  CB.ELV.  ZLH.KRAK.ZKLMP.VL1P.VL2P.VS1P.VS2P) 

500 30 C 

S0040C  THIS  SUBROUTINE  DETERMINES  LOAD  AND  MASS  TRANSFORMATION  FACTORS 
500 SOC  AND  DYNAMIC  REACTION  COEFFICIENTS  FOR  TWO-WAY  RESTRAINED  SLABS. 
S0060C  VALUES  CORRESPONDING  TO  PLASTIC  BEHAVIOR  ARE  USED. 

50070C 

50080C  LOAD  AND  MASS  TRANSFORMATION  FACTORS 

S0E30  IFCKRAK.EQ.l )GOTO  335 

S083SC 
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50240CS  CRACK  PATTERN  A 


50850 

50860 

50870 

S0290 

50310 

50320 

50330 


CVSa0.5*B 
CVL»0.5*<1.0-B> 

XP»ZLH*B/3-0 

ZP«ZLV*(1.0-4.0*B/3.0)/(4.0*(1.0-B)) 
XBARP*0. S*B*ZLH 

ZBAKPaZLV»( 1 . /24.-B/ 1 6. >/ { 1 . /8.-B/6. > 
GOTO  390 
S0340CI  CRACK  PATTERN  B 
50350  335  CVSa0.5*< I .0-B) 


CVi.«0.S*B 

XP*ZLH*C1.0-4.0»B/3.0)/<4.0*C1.0-B‘,  ) 
ZP»ZLU*B/3.0 

XBARP*ZLH*( 1 ./24.-B/16. >/( 1 ./8.-B/6.  » 
ZBARP-0.5*B*ZLV 


DYNAMIC  REACTION  COEFFICIENTS  FOR  SHORT  (VS)  AND  LONG  (VL)  EDGES 


50360 
50370 
S0390 
50410 
50480 
50770C 

50780C t ALL  CASES  — PLASTIC  RANGE 
50790  390  ZKHPatl.0-B)/3.0 
50800  ZKLP-O. 5-8/3. 0 

50810  ZKLHP-ZKKP/ZKLP 

S0880C 
50830C 
50840C 
50860C 

513S0C t ALL  CASES  — PLASTIC  RANGE 
51360  460  VS1P«CVS*(1.0-XP/XBARP> 

51370  VS2P«CUS*IXP/XBARP  ) 

51380  VLlP-CVL*I1.0-ZP/ZBARPi 

51390  VL8P*CVL4(ZP/ZBARP) 

51400  RETURN 

51410  END 

70000  SUBROUTINE  RANDOM  (IENTRY) 

700 IOC  THIS  SUBROUTINE  INPUTS  MEAN  AND  STANDARD  DEVIATIONS  FOR  RANDOM 
70030C  VARIABLES!  GENERATES  RANDOM  VALUES!  CONTROLS  REQUIRED 
70030C  NUMBER  OF  CASES  TO  BE  RUN!  AND  OUTPUTS  FINAL  RESULTS  AND  SUMMARY 
70040C 

70050  COMMON  KINC.LDTYPE.KRF.KRANE.TIME. I»Y( 100)»Q,QU.YU»YFAIL,FDC. 

70058*  ZLS.HS.FDY.AREA.ZMASS.ZKLM.VS1.VS8.PS0.PD0.PR.PEXT.PC.TC.T0. 

70054*  PO. DELAY. S.FFC.FY 

70080  COMMON  /RAND/  TIMEC 

70090  DIMENSION  CHI85C7 ),CHI975t7>. TDISTC7 > 

70100C 

701  IOC  VALUES  FOR  97.58  (Fal9.84.89.34.39.44.49) 


70120 

70130 

70140 

70150C 

70160 

70165C 

70170C 

70180 

70190 

70800 

70810 

70880 

70230 

70240 

70850 

70860C 

70870C 

70875 

70880 

70290 

704I0C 

70480 

70430 

70438 

70434 

70440 

70445 

70450 

70460C 

T0470C 

70570 


DATA  CHI85/. 4688. .5167. .5533. .5885. .6065. .6867. .6440/ 

DATA  CH1975/1 .7895. 1 .6408. 1.5766. 1.5884. 1.4903. 1 .4591.1 .4331/ 
DATA  TDIST/8. 093.8. 064.8.045. 8.032. 8.028. 8.016.8.010/ 


GOTOCS. 50.70). IENTRY 


ENTRY  It  INITIALIZE  RANDOM  NUMBER  GENERATOR 
5 XDUMMYaXNORMI (-1.0.0.0.1.0) 

PRINT././. *INPUT  NRAND*. 

READ.NRAND 
DO  47  lal.KRAND 
XDUMMYaXNORMI CO. 0,0.0. 1.0) 

47  CONTINUE 

INDEXaOS  SPSOaOS  SSPSOaO 
I CHECK* 20 


INPUT  MEAN  AND  STANDARD  DEVIATION  FOR  RANDOM  VARIABLES 
IFCKRF.EQ.O  SGOTO  30 
PRINT  87 
READ.5MEAN, SSD 
REINFORCED  CONCRETE  SLABS 
30  PRINT  86 

READ.FYMEAN.FYSD 
PRINT  8S 

READ, FPCMEAN. FPCSD 
!F(KRF.EQ. I JPRINT  96 
IF(KRF.EQ*0>PRINT  97 
RETURN 


ENTRY  8 I GENERATE  RANDOM  VALUES 
50  FYaXNORMl  (O.O.FYMEAN.FYSD) 
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PROGRAM  RESTRAN  (CONTJNI1 


70580 

IFIFY.LE.OIGOTO  50 

70562 

55 

FPC-XNORMl 10.0.FPCMEAN.FPCSD1 

70583 

IFIFPC.LE.OIGOTO  55 

70585 

IF!KRF.E8.01GOTO  65 

70590 

60 

S*XNORMI!O.O.SMEAN.SSD> 

70600 

IFIS.LE.OIGOTO  60 

70610 

65 

INDEX*  I NDEX*  1 

70620 

RFTURN 

70625C 

70630C  ENTRY  3*  SUN  VALUES  OF  PSO  AND  PS0**2  FOR  USE  !N 

70c'SC  STATISTICAL  ANALYSIS 

70640  70  SPSO*SPSO*PSO 

70650  SSPSO»SSPSO*PSO*PSO 

70660C 

70670C  OUTPUT  FINAL  RESULTS 

70730  76  IFIKRF.ES. 1 1PRINT  92.FDY.FDC.S.PS0.TIMEC 

70735  IF1KRF.E8.01PR1NT  90.FDY.FDC.PS0.TIMEC 

70740  60  IF! INDEX.LT. ICHECK JKETURN 

70750C 

70760C  DETERMINE  MEAN*  STANDARD  DEVIATION*  AND  STANDARD  ERROR  FOR  PSO 
70770  ZNO* INDEX 

70760  ZMEAN«SPSO/ZNO 

70790  SD*S8RT!!SSPS0-ZN0*ZMEAM*ZMEAN>/ZM-7 

70800  STDERR«SD/! SORT! ZNO- 1 ) > 

70810C  CHECK  IF  MAXIMUM  OF  50  PSO  SAMPLES  ORV.I&EL 
70860  IF* INDEX. EQ. 50 JGOTO  62 

70830C  CHECK  IF  95«  CONFIDENCE  INTERVAL  FOE  «' VI  PSO  VALUE  IS 
70840  IF!STDERR*TD1ST! ( INDEX- 151/5  >/ZF  -6T.0. 101G0T0  61 

70650C 

70860C  CONFIDENCE  INTERVAL  IS  VITH1N  tOt  — DETERMINE  UPPER  LIMIT  OF 
70870C  958  CONFIDENCE  INTERVAL  FOR  STANDARD  DEVIATION 
70880C  PROBABILITY  VALUE  AND  ITS  958  CONFIDENCE  INTERVAL  UPPER  LIMIT 
70690  62  SDU“SD/! S8RTCCHI25! ( INDEX* I 51/5) > ) 

70900C  CHECK  IF  MAXIMUM  OF  SO  PSO  SAMPLES  OBTAINED 
70910  IF! INDEX. E8.501G0T0  53 

70920C  CHECK  IF  UPPER  VALUE  OF  958  CONFIDENCE  INTERVAL  FOR  STANDARD 
70930C  DEVIATION  IS  WITHIN  0.I04MEAN  OF  THE  STANDARD  DEVIATION 
70940  IF!  ! !5DU*SDl/ZMEAN)«GT.O* 101GOTO  61 

70950C 

70960C  958  CONFIDENCE  INTERVAL  IS  WITHIN  108  FOR  BOTH  MEAN  AKD  908 
70970C  PROBABILITY  VALUE  — THEREFORE  SUFFICIENT  SAMPLES  OBTAINED 
70960C  DETERMINE  958  CONFIDENCE  INTERVALS  FOR  MEAN.  STANDARD  DEVIATION 
70990* 

71000C  AND  108  AND  90S  PROBABILITY  VALUES 

7t0!0  S3  ZMEANL-ZMEAN-STDERR4TDI STIC  INDEX* 1 51/51 

71080  ZMEANU-ZMEAN*STDERR4TDISTI! INDEX- 151/51 

71030  SDL*SD/!S8RT!CHI975! ! INDEX- 151/5) > > 

71040  P10*ZMEAN-1.262»SD 

71050  P!0L*ZMEAN-1.282*SDU 

71060  P10U*ZMEAN-1 .282*SDL 

71070  P90“ZMEAN*1.882*SD 

71080  P90L*ZMEAN ♦ 1 . 262*SDL 

71090  P90*ZMEAN*1.262*SD 

71100  P90U*Z»!EAN*1.2824SDU 

71110  P90U*ZMEAN* 1 • 282*SDU 

71180C 

71130C  OUTPUT  STATISTICAL  PARAMETERS  OF  INCIPIENT  COLLAPSE  PRESSURE 

71140  PRINT  100*ZMEAN>  ZMEANL.ZMEANU*  SD»  SDL*  SDU*P10*P10L*P10U* 

71150*  P90.P90L.P90U 

71160  PRINT  10S.INDEX.STDERR 

71170  GOTO  999 

71 180C 

71 190C  958  CONFIDENCE  INTERVAL  IS  NOT  WITHIN  108  FOR  BOTH  MEAN  AND  90 
71200B 

71310C  VALUES  — THEREFORE  OBTAIN  5 ADDITIONAL  SAMPLES 
71220  61  ICHECK* ICHECK*5 

71230  RETURN 

7I240C 

71260  85  FORMAT! /*INPUT  MEAN  AND  STANDARD  DEVIATION  FOR  F*C»*t) 

71270  66  FORMAT!/* INPUT  I\EAN  AND  STANDARD  DEVIATION  FOR  FY*»»1 

71280  87  FORMAT! /• INPUT  MEAN  AND  STANDARD  DEVIATION  FOR  S*.»> 

71290  90  F0RMATI8F9. l»F10.2*F14.3> 

71310  92  FORMAT! 2F9. 1»F11.2*F10.2*F14.3> 

71350  96  FORMAT!///* 5X* *FDY*»6X» 4FDC** 8X* *S*» 8X* *PS0**6X* 
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71351*  *C0LLAPSE  TIME*) 

71355  97  FORMAT! ///»4X. *FDY*»6X. *FDC*. 8X«  *PS0*»5X. ‘COLLAPSE  TIME*) 

71360  100  F0RMAT!///»11X.«S-ATISTICAL  PROPERTIES  OF  INCIPIENT  PSO*. 

71370*  //.39X»*95X  CONFIDENCE  LIMITS*./. 7X»*ITEM*. 18X. 

71380*  *VALUE  LOWER  UPPER*.//.*  MEAN*,F29.2» 

71390*  2F12.2.//.*  STANDARD  DEVIATION*. F15. 2. 2F12. 2.//. 

71400*  * 10%  PROBABILITY  VALUE*. 3F12.2.//. 

71410*  * 90X  PROBABILITY  VALUE*. 3F l 2. 2) 

71420  105  FORMAT! //.SX.*NUMBER  OF  OBSERVATIONS  »*»I3»/»SX» 

71430*  ^STANDARD  ERROR  -*»F5.2> 

71450  999  STOP*  END 

71460  FUNCTION  XN0RM1 !X. A.B) 

71470  IFCXJ10. 20.20 
71480  10  X0«RANF!-1.0) 

71490  20  X1-RANF10.0) 

71500  X2-RANF10.0) 

71510  Y*SQRT!-2»0*ALOG!X1 ))•! COS! 6*2831 84*X2)> 

71520  XNORM 1 » A*Y*B 
71530  RETURN 
71540  END 
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PROGRAM  RCBEAM 


00100  PROGRAM  RC9EAM I ( I MPUT.3UTPUT.  TAPE1  ) 

00105  CALL  RETRS 7HRC8EAM2.  7WRCBEAM2) 

001  IOC  « THIS  P3KTIJM  3F  THE  PROGRAM  IMPUTS  THE  REQUIRED  ELEMENT 
OOllbCt  AMO  LOAD  DATA  AMD  IMITIALITES  CEPT4IM  PARAMETERS  • 

001 20C 


I 

Sr 


K? 


% 


* 

p 

1 

i 

{ 

i 

i 


* 


i 

» 

! 


* 

( 


001  SO  C0MM3M  •SIMC.LOTYPE.MRF.HRAMD.  TIME.  I.  . < 1 001. 0T>  0U<  YU.  YFAIL. 

00 1 52*  ELB.  BB.H9.  FPC.  FOY.  I CASE.  AST  4).  APS!  4).D(4).QP(4).  FOC. 

00 1 54*  EC.  ES.  OAREA.  PAREA,  /MASS.  EKLM.  VL  1 . VL2. 

00 155*  MEMB.ASCS.  VCL.OOL SLAB. KC1MP.HS.  "AS. -M SLABS.  MAM EF(2>.<L FA 0. 

00 1 56*  W.  PT.  C0.L3C.  S.  EL  EM.  CO.  PS3.  POO.  PR.PEXT.PC.  TC.  TO.  DELAY. 

001 57*  TT(  80. 2) . PPS8Q. 2) . REACT  BO.  2). IM0E((2>. BR(2). 

001  SB*  MWIN.RH33.  V3.L1  . A4<S.  2)  . MM  I S) » AFR3MT.  ASIDE.  G.  G2.  G3.  G4.  PP2,  OT 
00160  LOGICAL  LI 
001 65C 

001 70C  « REAO  TITLE  AMO  C1MTR3L  PARAMETERS 

00172  PRIMT  67 

00174  REAO  6B. TITLE 

0017*  PRIMT  720 

00178  READ.HSLABS.HL84D 

00110  PAMA-0 

00182  IFCMLRAO.CO.OIGITO  40 
00184C 

00186C1  IMPUT  SLAB  REACT13M  OATA  FILE  DATA 

001BB  PRIMT  725 

00190  03  39  J*1.MSL4BS 

00192  PRIMT  735.  I 

00194  REAO.MAMEFS  J).  ISIOE 

00196  CALL  PFUR!  3HRE\ » 1 . MAMEFS  111 

0019B  l FS  I SI  OE.  EG*  1 1 READ!  I . 1SAREA.0UM.HS 

00200  1 F( I SI 0E.EQ.21REA01 1 . 1 DUM. SAREA. HS 

00202  510  1M0EXC 11*1 

00204  READ! 1 . 1MP3IMT 

00206  IF<lSt0E.E0.?lOT3  520 

0020B  SI  5 REAO!  1.  KTT!  JJ.  I1.P»S  I).  ll.REACI  11.  11 . DUM.  1 1*  1 . MP3 1 MT1 
00210  G3T3  525 

00212  520  READ!  1 . ) ( TT( 11.  Jl.PP!  1 1.  J 1 . OUM.  REACC  11.  II.  !1»!.MP3IMT1 
00214  525  8R<  I>s<REAC<2.  ll-REACIl.  !>1/<TT<2.  11-TTf  I.  Ill 
00216  3P»<  PPC2.  Il-opfl.  I)  >/  ( TTS2.  11-TTO.  Ill 
0021 B REwIMD  1 

00220  CALL  DR3PKI) 

00221  9DLSLAB*0DLSLAR*|S0.0«SAREA*MS/!  72B.0 

00222  39  PAREA=>PAREA*$AREA 

00224  -UNC*0  J L0TYPE*5  S <RF*0  S <RAMD*0 

00226  G3T3  45 

0022BC 

00230C  IMPUT  TRIBUTARY  SLAB  OAT* 

00232  40  PRIMT  730 
00234  1)3  42  l=l.MSLABS 
00236  PRIMT  735.  J 
00238  REAO.  SAREA. MG 


£ 


K 


00240  0DLSLA8*3DLSLA8»t  SO.O*SAHEA«HS/|  2.0 
00242  42  PAREA*PAREA»SAREA* 1 44.0 
00244C 

00246  PRIMT  85 

0024B  reao.mimc.lotype.xrf.mramo 
00250  45  CONTI  M'JE 
00252  OELAY’O 

00254  67  F3RMATI/4IMPUT  TITLE*.*) 

00256  68  FORMATS A59  > 

00258  BS  FORMATS/*IMPUT  <1  MC.LOT  VPE.MRF.  < RAMOC  I *RAM03M)  *.  * ) 

00260  720  F3RMATI/4IMPUT  MUMBER  OF  SLABS  SUPPORTED  BY  BEAM.  AMD  IF  *. 
00262*  *«R.AB  REACTI  3MS*/*4PE  T3  BE  CALCULATED  <01  OP  REAO  FR3M  ». 
00264*  »OATA  FILE  (11*. t) 

00266  725  FORMAT!/*  I MP.IT  REACT13M  DATA  FILE  MAME  AMO  SIDE  *. 

00268*  *<  l*SH3RT.2*L3MG)*l 

00270  730  F3RMAT!/*IMPUT  COMTRIBUTARY  AREA  (SO  FT>  «M0  THl  CKMESS  SIM.>*> 
00272  735  FORMAT!  6X.  *FOR  SLAB  MO.*.  I 2.  * > 

00274C 

G0276C  « IMPUT  AMD  ECE3  BEAM  AND  REIMF3RCEMEMT  PROPERTIES  « 

00278  PRIMT  615 

00280  REAO.  TLB.  98.  HB.  FPC.  FOY.  ICASE.BC3MP 
00282  lCASE4*ICASE-4 
0028  4 FOC* I. 25* FPC 
00286  EC*576I9.0*S0RT(FPC) 
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PROGRAM  RCEEAM  (CONTINUED) 


| 


00298  ES=29E6 
00270  0A»EA=.L«*99 
00292  PAREA*PAREA*OAA£A 

00294  FC<  <.'-  = EC/ 1000.0  S ^SM  I=*ES/  1000.  0 
0029 A 11  PRINT  670 

00299  0 5 9 1*1.3. 2 

00300  AJ!l >*0 

00J02  ifucase.  so.  9.  ano.  i . r,r.  i > oo ro 

00304  PRl  NT  625.  1 

COOCo  nEAD.  AS<  I > . 0<  I) . 4P4<  ! ) . OP  C 1 > 

00307  9 C3NTI  NilE 

00309  IFC-<C3MP.EO.O>03  r.l  9 

00309  PRINT  616 

00310  REA9.SP.HS.  ASS.A9.  05LA9 

00311  9S  = 0.2->»'L« 

00312  (F<  9S.  GT.  <99*1  6.0«HS)  > 9S*  AB*  > 6. 0«9S 

00313  IF!8S.GT.SP>9S=SP 

00314  9 pSHf  71  I 

00315  READ.MEM9 

00316  IF<MEM3.NE.  1 )*HT3  15 

0031 7 13  PRINT  705 
00314  RPAQ.ASCS 
00320  15  C3NTI  NUE 

00322  PRINT  620.  I CASE.  *L9»  99.  M3*  FPC.  FI)C»  EC<  I P»  rCT»  £54  I F 

00323  IF<4C3MP.HE.0)PRINT  621 . 2'-.  9S.  5P 

00324  PRINT  630 
00326  D3  110  1*1.3. 2 

C0329  I F<  I CASE.  EO.  S.  ANO.  I • GT*  I > G3T3  110 
00330  P*ASC  «.  >/<  99*0<  I > ) S ppR*A»S< t >/<98«D<  l > > 

00332  PRINT  640.1»AS<l>»P»0U5.APS<t),PPR.-W<t> 

00333  110  CONTINUE 

00334  IFJMCaMP.EI.O) S3T3  11S 

00335  PRINT  641.ASSLA9.DSLA9 

00336  IF1ASSI  AB.EO.O!  G0T3  115 

00337  Asa.A8*BS*OSSLAB/12.0 

00338  OPU>  = <APS<  1>*DP<1  )*ASSLA9*0SLAB)/(APSC  1 .*ASSLAB> 

00339  APS<ll  = APS<n*ASS-38 

00340  115  >MAS5»I50. 0»?UB«HB*BB/<386. 07*1  728. 0) 

00342  VCL  *2.  2B*S0RT<FPG)/<1-2*0<1  >/ELB>*  3C00*  C 85!  1 5/(BB*0<  1 ) > > /<  I -0!  1 5 /£LB) 

00343  VCLMAX-3. S*SQRT<  FPC.)/ < 1 .C -2.0*0!  1 >/*L8> 

00344  1 F<  VCL  . GT*  VCLMAX  5 VtL  = V0!.M4X 

00345  “RINT  <'8  VCL 
003  )6C 

00348  615  F1RMAT!/* INPUT  L9»  99.  MB.  FPC.  Fl»r . ICASE.  XC3MP*..  r) 

003,'  616  FORMATS/* INPUT  REAM  SPACING.  MS.  ASCSLAO).  « D<St,AB)».»> 

G035G  625  FORMAT!* INPUT  AS.O.A'S.SD’  F3R  SECTION*.  1 2.  i > 

00352  420  F3RMA'/<//*P93PFRTIES  3f  REINFORCE!)  CONCRETE  SUPPORT  BEAM  •■*. 
0035«  « CIPP3RT  TTP-:  N3.*.l2./. 

00356*  * L9  s«»F6.  i.»  IN.  99  *«»F6.*»«  IM.*.6X»«U9  *». 

0035«*  F6. 1 . * IN.*./..  F*C  s«.F7.1.«  PSI  FDC  = *»F7.1» 

00360*  • PSI«.5X»*EC  =*.F7.l.«  <SI*»/»*  FDr  *«.F8.1»«  PSI*. 

00362*  3X.«r.S  ■«,F8.1»«  <SI*> 

00364  430  F3RM4T<//«RE!NF3RCEMENT  VALUES*/*  SECTION  AS  IP)  *. 

00366*  9X.*D«»8X.«A'S  < P ' )«.  8X»  *0  **/9X.  •<  SO  IN.)*.I2X. 

00268*  * < I N. 5 <50  IN. »*. I2X»«<I N. >«) 

00370  670  FORMAT! !H  5 

00372  AMS  F3RMAT</» « VCL  =«.F6.  1.*  PSI*> 

00374  70S  F3  RMAT</*  INPUT  CB'ITI  NU3US  REI NF38CKMENT  <S0  IN.)*.f> 

00376  7|1  FORMAT!/*!'  TENSILE  MEMBRANE  T3  BF.  INCLL'OEO  <0*N3)«» 

00378*  •i*res>«»*> 

00380  640  FORMAT!  I 5.FI  ! . 4.*  < *.  FA.  A.  * )*.  F9.3.  FIO.  4.  « ! * . F6.  4.  • >«.  F9.  3) 
0038C  4?<  FORMAT! « HS  *«.  FA.  I»«  IN.  RS  = *»FS.1,«  IN.*. 

00394*  5X.«9EAM  SPACING  **.F6.I.«  IN. *5 

0038  A A41  F3RM4T!*  «L  AB*.  FI  0.  4.  * SO  I M-/FT*.  F8. 35 

005A5C 

O0570C  INPUT  LOAD  PARAMETERS 
C057J  l F<LOTTPE.  r0»  5)  GOTO  20 

00575C  L3CATI0N  I.  FRONT  FACE  L3A0ING  <USE9  In  R33M-FILLING  P93CEDURE) 

00580  IF<<L3A1).E0.  1 -(MTO  25 

00585  I GO  W*  1000.0  5 P3’14.  7 t C3*  1120.0 

00590  IF<-<RF.NE-1)G3T3  102 

00545  L<3C*  1 

00600  IFMRANO.EC.  I 5 G3T3  106 
00605  PRINT  600 
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PROGRAM  RCBEAH  (CONTINUED) 


00610  read.  S 
00615  G3T3  105 

00620C  L3CAT13N  2.  TOP  FACE  L3A01NG 

00625  102  CD«0  * L3C*2 

00630  ?LEN*rLB/»2.0 

00635  105  IFt-UNC.EO.  1 103T3  106 

00640  PRINT  610 

00645  READ.PS3 

00650  Pft*2.0*PS3«t  7.0«P3*4.0«PS3>/<  7.0*P3*PS3> 

00655  600  FOPMATt/*  l NPUT  S«»t> 

00660  610  F3RHAT</* INPUT  P<W*»«) 

00665C 

00670C  * INPUT  R33M-  FILL  I 4 A PARAMETERS  • 

00675  106  IFURF.EO.OlGm  20 

00680  10  PRINT  700 

00685  RH33*0.076  I L 1 =• FALSE* 

0 0 690  DELAY*  1 £10 

00695  READ.  NRI  9#  V3 

00700  AT*OS  AFR0NT»O*  A*I0E*0 

00  705  03  18  t*l»NWIN 

00710  PRINT  710.1 

0071  5 REAO.AAU.  tl.NNtn.  AA<1>2) 

0 0 720  AAU.2>*AA(I» 21/1000.0 
00725  AT*AT*  AAC  I # 1 1 
00730  H*NNCI)S  G3T3U2.  1 4.  1 4) . M 
00735  12  AFR3NT*AFR3NT*AA<I. I 1 
00740  GOTO  18 

00745  14  ASIOE*ASIOE*AA<  I.  t> 

00750  18  IFCAA<I.2>.LT.0£LAY»0ELAY*AA<I»2> 

007S5  AFR3NT*AFR3NT/ATS  AS1DE«ASI0E/AT 

00760  700  F3RNAT1/* INPUT  NW1N  AND  R33M  V3LUNE  (CF)«,t> 

00765  710  F3RHATC/* INPUT  AREA  YSO  FTV.L3CATI3N  CODE  * DELAYINSECJ* 
00770*  * FOR  VIN03U*.  I2.t  ) 

00775  0*1.4  S 02*1. /G  * 03*1.-02  * 04*2. /03  * 65*0*1. 

00780  PP2*. 1912 

00785  C*SQRT(G«P3*32.*|44./RmO) 

00  790  TAU*2.*(V3««<  1. /3.11/C 

00795  0T’TA'J/’4.0 

00300C 

00805  20  CONTINUE 

OCR  1 0 25  CAU.  CMAINCRCBEAN2) 

00815  99  STOP 
00820  ENO 


0100C  SEtWEtT  RCBEAN2  t INPU T#  3UTFUT*  TAPEI  ) 

OiOlOC  TNI  S SECWENT  CALCULATES  THE  RESISTANCE  FUNCTION  ANO 
01020C  LOADING  ANO  S3LVES  THE  DYNAMIC  EO'JATI  3NS  3F  N3TI3N 
01030C 

Cl  050  G3MS4S  «INC»LOr.’Fe»<RF.NRANO#TINE*I.  Yt  100*  « QT«  0U»  Y'J#  YFAIL# 

C 1 052*  *Ls3>  28.  HB.  FPC.  FO  Y.  I CASE.  AS?  4>  . APSY  4}  , Q{  4>  . DP(  4>.  FOC. 

0 1 054-  EC.  E5.  3A2EA.  PARE*.  - NASS#  TNL8.  VL 1 . tt.2. 

01C55*  sENR.ASCS.  VCL.  02LSL  A8.  4C3NP.HS.  05.  NSLABS.NASEFt  21.SL3AD. 

01056*  it  P 3.  C3.L3C.  S.  ELEN.  CO.  PSJ»  PD3.  PT. PE*  T.  PC.  TC»  TO.  DELAY* 

01057*  Tr<8O.2>.PP<8O.2».REAC<30.2>.IV0EE(£7.8R(2). 

0 1 058*  SRI  N»  PH« * . V3.L  1 * AAtS.  2)  . NN< 8 ) . AFR9NT.  ASI  OE.  6.  62.  63.  04.  PP2.  OT 

0 1 078  C9NM3N  /RANO.'  T»NEC 

0 1 086  CINENSI3N  At 80>.  Vt80>.  T<36»*  VSI  80>.  NL<  80J.PNYR0) 

01 100C 

01250  irtNINC.NE.I  .3ft.LOTVPE.EO.  j>CALL  FfRCEC  ! > 

01260  {4  I FtNRAUO.NE.  1 ) G8T3  35 

01270  CM.L  F3RCEC4) 

01 280  CALL  SAN094C1) 

01290  34  CALL  RANO0NC  2 ) 

01300  35  CALL  RESISY«J> 

OCSIQC 

013G0CJ  NlNlNlPN.  NAX1HUN.  AND  STARTING  1-ALUES  ARE  DETERS IV  F*R  CASES 
01330Ct  WHERE  THE  L8A0  CAUSING  INCIPIENT  COLLAPSE  IS  T3  BE  F81TND 
£F«INC.eO.O>63T3  S3 
.3 

PFNAX*0 
PFNIN»C# 

U8T3  20 

PF*<?FstN*PFNAX>/2.0 
CAi.L  F3RCEf 2> 

IYSNRF.EC.C‘03T3  24 


0! 

340 

;3 

01 

3S0 

PF* 

01 

350 

01 

370 

0! 

380 

0! 

39u 

1 6 

01 

400 

20 

61 

4t  0 

23 

151 


01440CJ 
014500 
01460  34 
01470 
01  450 
01  490 
01  500 
01510  37 
01520 
01530 
01540 
01640  30 
01650 
01660 
0I680C 

0 1 690Ct  PROCEDURE  E3R  ALL  SUBSEQUENT  TIME  INTERVALS 


INITIALISE  VALUES  FJR  9€TA  METH3D  CBETA=t/6.  AMO  C3MP  JTS  VALUES 
FOR  El  RST  TIME  INTERVAL  ASSUMING  ELEMENT  l N 1 Tl  ALLY  AT  REST 
1*1 

TIME*G 

vc i >*o  % r< 1 1=0 
0ELTA*O.OO1 
IFC8RF.NE.  I 1CWT3  30 
IFCTIME.  GE.CDELAY-. 00001  1 1 G3T3  30 
TI  ME*  T1  ME* DELTA 
CALL  FILLCF1NT.31 
G3T3  37 
CALL  RESISTC31 
A ( 1 )*0’0  t VSC  I 1 = 0*0 
T< 1 1*T1 ME 


* lA-<  1 1 = 0.0 


01  700 

1 

i*i*i 

01  710 

IFCt.l.T.  1011K3T3  11 

01  730 

PRINT  98. TIME 

01  730 

9* 

F3RMATC/1  *1011  TIME  .*,F6.3.*I 

01  740 

G3T3  6 

01  750 

1 I 

time=time*oelta 

01  760 

TCI  >*T!ME 

01  770 

ACIlaACI-l! 

01  775 

IFC8RF.NE.O1G0T3  10 

01  780 

CALL  FORCE!  31 

0 1 790 

PNCIlaPEXT 

01800 

G3T3  3 

018090  DIMENSION  AC  I 001. VC  1001. TC 1001. VLC 1001.PNC 1001 
01880  10  CALL  FILLCPINT.  3) 

018*0  PMCtl.PINT 

01910  3 IFCXL3AD.  E0«0:PT*PNCI  1*PAREA 

01915  IECKL0AD.NE.O1OT»PNU  1 

01930  00  8 JJ=1. 10 

01930  I(l)*r(l*l  >*0ELTA«VCI-l>»DELTA*DELTA*CACl-11/3.*AC  11/6.1 

01940  CALL  8ESISTC31 

01960  4 ANEH*CPT-QT1/C'MASS*'8L81 

01970  aoelta*anew-au  1 

01980  AC  1 1 a ANEW 

01985  IFCAnEW.E3.01PRINT.«I985*.TINE»PT.OT. 'MASS.S-CLM.YCtl.AC  I-ll 

01990  IFCA9s<A0ELrA/CANEW*lE-IOll.LT.0.0t>K3T3  9 

03000  8 CONTINUE 

03010  AC  I l«ANEW-ADELTA/3.  0 

0»030  PRINT  80.  TIME.  PF.ACIV.TC11 

03030  9 C3NTINUE 

03040  TCI1*TCI-1 1»0CLTA«VC  I - 1 1 »0ELTA*  DELTA*  C AC  I • 1 1/3.  * AC  1 1/6.  1 

0305U  VC  1 1*VC  I - 1 l»On.TA=CACI  1*  AC  I - 1 1 1/3.0 

03070  VLC  1 1*VLI*PT*VL3»0T 
U3090C 

031000  CMEC-C  F3R  MAXIMUM  DEFLECTIJN  3R  FAILURE 

IF  MAXIM!*  DEFLECTUN  REACHED.  WALL  010  NJT  FAIL 
IFCYCIl.LE.TCl-ll.ANK.PNC I 1 -LE. PNC  I - 1 1 1 G0T3  6 
IFCYCI1.LT-01CBT8  6 
IFCYCI1.GE.YFAIL1G8T3  7 
IFCTIME-OELAY.  GE. 0 • Ot 01  OELTAaO* 002 
I FC  TIME- CEL  AY.  GS.  0.0301  DEL  TA*0.005 
IFCTIME-OELAY.GF.O.  10010ELTA»0.010 
I FC  TIME-  DELAY.  GE.O.  5001  OFLTAaO.  OSO 
IF  FAILURE  0EF1.ECTI3N  REACHED.  ELEMENT  FAILED 
r.lTJ  1 


03! IOC! 

03130 

03130 

03135 

021  40 

03160 

021  70 

03180 

02190CJ 

03210 

0333DC 

02330CC 


INTERVAL  HALVING  PROCEDURE  T8  DETERMINE  L7A0  CAUSING  INCIPIENT 


0?'40Ct  C3LLAPSF  FOR  CASES  WHERE  OESIREO 

033500  ELEMENT  DID  N.1T  fail  --  SET  PFMIN  T3  PF 

02260  6 C8NTINIJE 

03380  IFC8lNC.ED.0l  G1T1  18 

03390  36  °FMIN*PF 

03300  I FCFFmAX  . GT.  0 1 01T3  16 

l>33!il  »F*3.0«PF 

03330  WT3  30 

03330C:  ELCMENT  FAILED  — SF.r  PFMAX  T3  PF 

03340  7 CONTINUE 


' l^T  *^>  VV^  >-*  TspsBT « *f.  St.'.Vj 
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PROGRAM  RCBEAM  (CONTINUED) 


f IM£C*TIME 

IFiKlNC.EO.O^ITI  18 
PFMAX.PF 

CHECK  T9  SEE  IP  LOAD  RANGE  IS  WITHIN  DESIRED  ACCURACY 
IF! (PFMAX-PFMIN>/PFMAX.  GT.O.Ot  > GOTO  I 6 
IF(KRANO.N£.  1 >G3TJ  11 
CALL  RAN03N!  3) 

(33  T3  3 A 


083S0 
02370 
02310  37 
02390C) 

02400  17 
02410 
02420 
02430 
02440C 

024S0C)  OUTPUT  DATA  INCLUDES  THE  NAXIMUM  DEFLECTION  AND  TIKE  OF 
024&0C)  3CCURANCE  FOR  A NON-FAIL  IN  G ELEMENT  3R  THE  TIKE  AND  VELOCITY 
02470C1  AT  C3LLAPSE  FOR  A FAILING  ELEMENT.  OPTIONAL  OUTPUT  IS  THE 
02480C)  ENTIRE  BEHAVIOR  TIKE-HISTORY* 

02490C 

02S00CI  OUTPi'T  LOAD  DATA 
02510  11  ALL  FORCE! 4) 

02520C 

02S30C)  OUTPUT  FINAL  RESULTS 

02540  lF(Y(t).LT.YFAIL>PRtNT  70»r!t)»T(l> 

02550  IF(Y!I).GE.YFAIL)PRINT  7t.T(I).V(I> 

02S77C 

02S78C  CHECK  TO  SEE  IF  ENTIRE  TIKE-H1  STORY  IS  DESIRED 
02500  PRINT  72 
02  590  REAO.K 

02600  IFCK.EO.OJGITO  25 

02680  PRINT  76.  (T(  J>  »PN!  ))  . A!  J >.  V!  J )»  Y!  J>»  VL!  J>»  J*  1.  t > 

02690  2 5 PRINT  77 
027I0C 

02740  70  F3RMAT(/«N3  FAILURE  - KAN  DEFLECTION  0F*»F6.2» 

02750*  • IN.  REACHEO  AT*F7.  3.*  SEC*  > 

C2760  71  FORMAT!/*FAILURE  OCCURREO  AT«»F7.3.*  SEC  (FINAL  VELOCITY  **» 
02770*  F7.2*  IN./SEC)*) 

02780  72  F0RMAT!/*IS  TIKE  HISTORY  DESIRED  (YES*1»  NM0>*.  t> 

02830  76  FORMAT!/*  TIKE  PRESSURE  ACCELERATION  VELOCITY  * 

02840*  .DISPLACEMENT  VL*./. 

02850*  ( F6>  3.  F9.  3>  F 1 2.  1 . F | 2.  2.  Fl  2.  4.  Ft  I . D>  > 

02860  77  FORMAT!///.  7!« •>  ) 

028 70  80  FORMAT!/* ACCELERATION  N8T  CONVERGING  AT  TIKE  **.F6.3. 


02880* 
02890* 
02900* 
02950C 
02960  999 
029  70 


• SEC  (PF  **. F7*  3.  * PSD*/*  A(I>  SET  EQUAL  TO*. 
F3. I»*  !AVG  OF  LAST  2 I TERATIONS)*/*  Y!I>  »*. 
F8*  4. * IN.*) 


STOP 
END 

10000  SUBROUTINE  FORCE! I ENTRY) 

10010C  THIS  SUBROUTINE  INPUTS  THE  LOAO  PARAMETERS  AND  DETERMINES 
I0020C  THE  LOAD  AT  A GIVEN  TIME  FOR  THE  FOLLOWING  LOAD  TYPES) 

1 0030C  1.  IOEALIEEO  BLAST  LOAO  (FRONT  OR  SIDE  FACE) 

10  150  COMMON  KINC.LOTYPE.KRF.KRANO.TIME.  I » Y!  1 00>.  DT*  QU.  YU.  YFAIL. 
10052*  TLB.B9.HB.FPC.F0Y.ICASE.  AS!  4).  APS!  4).  D!4)»  DP(4).FDC. 

EC.  ES.  OAREA.PAREA.  EM  ASS.  EKLM.  VL  1 . VL2. 

MEM8.  ASCS.  VCL.  DDL  SLAB.  KCOKP.HS.  BS»  NSLABS.NAMEF(2),KL0AD. 

W. PO.  CO.LOC.  S.  ELEN.  CD.  PSO.  PDO  ■ PR. P.  PC.  TC.  TO.  DELAY. 

TT(80. 2).PP!80. 2..  REAC(80. 2) • INDEX (2). BR(2>. 

NWIN.  RHOO.  V3.L  1 » AA( 8.  R).NN(B).  AFR9NT.  ASI  DE.  G>  G2.  G3.  G4.  PP2.  DT 


10054* 

10055* 

10056* 

10057* 

10058* 

1 0080C 

10130  I F(LQTYPE.  EQ.  5>  GOTO  TOO 
10135  IF!KL3A0.EQ.  I)  WTO  500 
I0I40C 

IOISO  G3TO!2I5»200.  300»4)»I  ENTRY 


I IOOOC 

II010C  CALCULATE  LOAD  PROPERTIES  FOR  GIVEN  PEAK  PRESSURE 
11030  200  <MT3!205.  210).L3C 

I 1040  205  PS3»!PF.*  I 4.0*P3*SQRT! 196.0*P3*P3* |96.0*P0*PR*PR*PR)  >/l  6*0 
11050  G0T3  215 
11040  210  P.88*  PR 

11070  215  PM*2.  5*PS3*PS0/!7.C*P3»PS0> 

IlOSO  U*C8*S0RT!I.0»(6.0*PS3>/!7.0*P«)> 

11090  TO*  W*«0.  3333/ (2.2399*0.  1886*  PS«> 

11100  G313(C20.22S).LCC 
11110  220  TC*3.0*S/U 

1 1 120  PC*PS9*(I-TC/TO)*EXP(-TC/TO)*P08*( I-TC/T0)**2*EXP(-2*TC/T0) 

1 1130  C0*|.0 
I I I 4G  RETURN 
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PROGRAM  RCBEAM  (CONTINUED) 


1 1150  225  TA»?LEN/tJ 
11160  TA2»TA/2.0 
11170  TA2T0*TA2/T0 

I 1 1 AO  PA=PS3*C|-TA2T01*EXP<-T42TO>*CD*P03*Tt“TA2TO)**2*EXP<-2*TA2TO> 

11190  RETURN 

I2000C 

12010C  CALC'LATE  LIAO 
12030  300  GJT3<306.  3107.L3C 
1 2040  305  TT0=TtME/T0 
12050  IF<  TIME.GT.  TClfilM  320 
12060  PsPC*<TC-TIM£)«<PR-PC)/  TC 
120  70  RETURN 

I20RO  310  TT0*fTtME-TA2>/T0 
12090  I E<  Tt  ME.  GT.  TA ) G3T3  320 
12100  P»PA«TIME/TA 
12110  RETURN 

12120  320  IF(  TTO-GE.  I .07G3T3  330 

13130  P*PS3*< l-TT0>«EXPf-TT0>*C9«PD3*< 1-TT0><»2*EX“<-2«TT0) 

12160  RETURN 
12160  330  P=>0 
12170  RETURN 
1 3000C 

1 30 IOC  PRINT  LIAO  DATA 

13020  4 IFfXINC-EO.OlGOTI  400 

13030  PRINT  640.L0TYPE 

13040  GOTO  410 

13050  400  PRINT  64S.L0TYPE 

13060  410  CONTINUE 

1.1070  415  G0T3T420.  4257.L1C 

1 3QB0  420  PRINT  6S0 

13090  GOTO  430 

13100  425  PRINT  655 

13110  430  PRINT  660.  W.P1.C-1 

13120  IFURANO.NE.OJRETURN 

13130  G3T3C435.  440). LOC 

13140  435  PRINT  665.  S.TC.PR 

13150  GOTO  445 

13160  440  PRINT  67fl.7LEN.TA.PA 
131  70  445  PRINT  675.  U,  TO,  CO,  PRO.  POT 
131  AO  RETURN 
1 3S00C 

1 3*»!0C  LTAO  TYPE  5 --  ARBITRAL  i.  )A0  5AAPE 
13520  700  GOTO!  710.  720,  730.  7401.1  ENTRY 
I3530C 

13540C  INPUT  LOAD  OAfA 
13550  710  PRINT  760 

13560  REAO.NPOMT.  < TTf  I.ll.PPf  J.l).  J=1.NPJINT> 

13570  EACT3P=  1 .0 
13SA0  IF<AINC.EO.O)Giri  71A 
1 3690  Q4A<3PP< i , 1 J 
13600  00  716  1=2.  NPOINT 

1 3610  715  IFTPPT  1,  1 ).  GT.“MAX>PMAX=PPI  I.  1 7 
13620  71  A PX»PP<2»  1 1-PPT  1.  1 > 

13630  T«sTT<2.  1 1-TTC  1.  I > 

13640  JI>1 
13650  RETURN 
I 3660C 

13670C  CALCULATE  MAX  I AIM  LOAO 
136A0  720  FwCT.TRsRR/PMAX 
I36R0  G0T3  71 A 
13  700  RETURN 
1 37IOC 

13720C  CALCULATE  LOAO 

13730  730  IFTTIAE.LE.TTT  IJ*1.1)>G1T0  735 
13740  11=11*1 

1 3750  PXsPPC  I|*  I,  I >-PP(  IT.  I * 

13760  T**TTC  J »♦!.  l>-TTf  U> 

13765  IF<TX.EO.O>TX*1E-10 
13770  GOTO  730 

13TA0  735  P»FACTNR«f  PPT  Jl.  1 >*(  TIAE-TTf  11.  I ) >«PX/ TX' 

13790  RETURN 
1 3A00C 

I3410C  PRINT  L3A0  DATA 

13AI5  740  IFfxINC.EO.  I 1PRINT  640.L0TYPE 
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PROGRAM  RCBEAM  (CONTINUED) 


13820  IF<KINC.ED.Q)°RINT  64R.LUTYPS 
1 3825  PRINT  MO 
13830  03  745  J*I.NP3INT 
13840  P*FACT3R«PPO»  I ) 

13850  745  PRINT  795,  TT<  I.  I ).P 
13860  RiTJRN 
I 4000C 

14070  640  F7RN4T</«L3A0  CAUSING  INCIPIENT  FAILURE  IS  AS  F3LL3WSI*. 
14071*  /»5X»*L0A0  TYPE  N‘HRPR«.I2> 

14080  645  F)RNAT</*PR3PERTIES  )F  LIAO  ACTING  3N  WALL  ARE  AS  FJLL0WS1*. 
1 40P  . ♦ /,5X»«L3A0  TYPE  NUHBER«»i2> 

>*090  650  F)RNAT<SX»  «<FA3NT  FACE)*) 

14100  655  F3RNAT<SX»*<S!0E  3R  TJP  FACE>»> 

14110  660  F3R8AT<  10X.«W  *«,F8.l,*  XT  P3  **,F6.2»*  PSt  CO  *•» 

14111*  F7.1.«  FPS«> 

14120  665  F3R8AT<10X»«6  *«,F6.|,«  FT  TC  *».F6.3.«  SFC  PR  **, 

14121*  F7.3.«  PSI*> 

14130  670  F3RNATI 1 OX*  *L  **»F6.1.«  FT  TA  »*,F6.3.*  SEC  PA  »*, 

14131*  F7#  3.  • PSI*> 

14140  675  F8RNATX  10X»*ll  »*.F7.1»«  FPS  TO  **.F6.3>*  SEC  CO  **» 
14141*  FS.  l./»BX»«PS3  **»F7.3»«  PSt  P03  *«.F7.3.«  PSI*> 

14150  780  F3RMAT</«INPUT  NUHBER  3f  L3AD  P3I.NTS  AND  TMF  TINE  AND  * 
14151*  (PRESSURE  AT  EACH  P3INT*) 

141  60  790  F3R8AT</10X.«TIME  PRESSURE*) 

14170  795  F3R8AT(F15.3.F12.2> 

I SOOOC 

150020  SLAB  REACTI3N  DATA 
15010  500  «JT3t  510.  530.540.  560).  IENTRY 
15020  510  RETURN 
I 508 5C 

15090  530  STOP 
1S095C 

15100  540  P*0«0 
I 51  10  03  5 5 5 Ll.NSLAAS 
15115  545  J Ja  I N DEX(  J ) 

15120  550  IFXTINE.LE.  TT(  J J*  1.  J) ) G3T3  555 
15125  INDEX ( J ) * I NDEK  C J )♦  1 t JJ*lNOEx«J> 

15130  IF!  J J.LT.NP3I  NT)  G3T3  552 
1 5132  PRINT  690.  TINE 
15133  STOP 

15135  5S2  BR<J)*(REAC<  1 1*1.  D-HEACt  J J.  ))  )/<TT<  JJ*  l.J)-TT<JJ.  J)) 

15140  BP*CPP<  J.J*  1,  J)-PP{  IJ.  J)>/CTT<JI*I»  l)-TT(JI.J)) 

15150  03  TO  550 

15160  555  P*°*REAC<  Jl.  I)*ITME-TT<  J».  J))»BR(  J) 

15165  P*P»OAREA*<Pp<  1 1.  I)  ♦ < TINE-  TT<  i J.  J)  )*BP> 

15170  RETURN 
15180  560  PRINT  680 
15190  03  565  J*  1 . NSL4AS 
15200  565  PRINT  685.NANEF{|j 

15300  680  F3RNAT</*3EAN  L3A0ED  WITH  REACTIONS  FR3N  FILnS)t*) 

15310  685  F3R8ATI 10X. A7) 

153IS  690  F3S4AT</«EN0  3F  FILE  — BEAN  HAS  N3T  FAILED  AT*»F6.3»*  SEC*) 
1 5320  RETiIRN 
I 5330  END 

20000  SUBR3UTINE  FILL! P3»  I ENTRY) 

20010CI  C3NPUTES  AVERAGE  AIR  PRESSURE  IN  R03N  DUE  T3  BLAST  NAVE 
20020C1  INCIDENT  ME40-9N  UPON  FRONT  WALL. 

20030C 

20050  C3NN3N  8 INC.LDTYPE.  X RF.  X RAN  0.  TINE.  1 1 . TC  1 00)  . 3T.  OU.  YU.  T FAIL. 
20052*  EL  9.  BB.  MB.  FPC.  FDr.  I CASE.  AS(  4).  APS(  4).  0(  4).  DP<  4)  . FOC. 

20054*  EC.  ES.  RAREA.  PAREA.  'NASS.  EXLN.  VL 1 . VLB. 

200SS*  NENB.  ASCS.  VCL.  OOLSLAB.  XC3NP.  HS.  9S.  N SLABS*  NANEF(2).XLBA0. 

20056*  U.  P*.  C3.L3C.  S.  ELEN.  CD.  PS3  . P03.  PR.  PEX  T.  PC.  TC.  TO.  DELAY. 

20057*  TTt80.2).PP(80.2).  REACT 80.  2).INDEX(?).BR(2). 

20058*  NWIN.RM08.  V3.L  1 . AA(8<  2). NN(9>. AFR3NT.  ASIDE.  G»  G2.  G3.  G4>  PP2.  DT 
20090  LOGICAL  L1.L2.L3 
2009 5C 

20100  QBT3nO.l3.il).  IENTRY 
20110  10  RETURN 
2031 OC 

20320  13  P3B*P3 
20330  TT*0»S  T3*0. 

20340  RHB33*RH33 

20  3 50  L2*. FALSE.  $ L3*.  FALSE. 
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PROGRAM  RCBEAM  (CONTINUED) 


| 20360  RETURN 

5 20370C 

I 20300  11  !E(LI><nT*  5? 

? 20305  IF<L2.A.L3H»1TJ  9 

: 20390  52  OOT«<TINE-T1>*0.  5 

20395  IST3P=2 

1 20400  53  IF<DDT.LT.0T)C.3T)  51 

1 20410  SO  DDT=0.5*00r 

20415  I $T3P=2*  1 ST 32 

20420  G7  T)  53 

20430  .1  C3NTINUE 

2044C  O.J  99  1 = 1.  IST3P 

20450  TT=ro*I«DOT 

20440  IE<TT.  GT.TOXn  T)  99 

20470  DN  = 0.  S WW=0.  5 Nw*0 

20420  07  500  R*I»NWIN 

20490  N»NNfR>  $ 0LY»AA<R»2>»0.00000t 

20500  !F<OLY.GE.TT>M  T3  500 

20510  G1T3I1  5.  16.  16).  4 

20520  15  COFsl.O 

20530  IFITT-TCI20. 20.21 

20540  20  PI 1*< TC-TT>«<“R-PC>' TC»PC 

20550  P| l=°t 1*»7 

20560  G7  T3  30 

20570  16  C0F*-0.4 

20600  21  R=  TT/TO  S RR*|.-R 

20610  P0«PO7«RR«RR»E<P(-2.«R) 

20620  PS*PS7«RR*EXP<-R) 

20630  PI 1=PS*C0F«PQ 
20440  PII=P||*P3 

2065030  RH3I»RH33»<CP11/P7>««G2> 

20460  IF<P1  1-P3D36.36.37 
20470  34  ISICMs-l 
20600  L2*.TRUE. 

20770  303  P2*P  1 I 

20700  RH32s<<P2/P33»««G2>*RH73« 

20790  X*P33/RM337 

20ROO  GO  TO  30 

20010  37  JSIGN  = *I 

23820  306  P2=PP2*P11 

20030  RH32r<<P2/p|  1 >«*G2)*RH7I 

20040  X*P| 1 / RH3 I 

20050  38  U22=G4»CX-P2/RH7P>«32.«I44. 

20060  IPOI22I40.39.39 

20070  40  PRINT.»'I22  NEGAT!  VE«.U22 

20000  STOP 

20090  39  U2*SQRTCU22>« JSI  GN 
20900  0DN  = iJ2«RH32«AAIK»  I )«ODT 
209)0  ON>D«*OON 
20920  WW*WW*P1  l*ODN/<  G3«RH71  ) 

20925C 

20930  500  CONTINUE 

PQ940  P37*P30»<G-1.)*WH/V3 

20950  RH330*RH033*DN/V3 

20960  99  CONTtNUE 

209  70  TO*TT 

20900  P3*P33-P3 

20902  IF(T17E<  GE.  TC)L3  = .TRUE* 

20983  RETURN 

20904  9 R*TINE/T0  S RRH.O-R 

20905  P0=P07*RR«RR«EX®(-2.0*oi 
20986  PS=PS3«RR«EXP<-R) 

2G907  P3»PS*P0«CAFR7NT-0.4«ASID£> 

20990  999  RETURN 
21020  END 

30000  SUBROUTINE  RESIST  C I ENTRY) 

300I0CI  THIS  SUBROUTINE  OETERN! NES  THE  RESISTANCE  FUNCTION. 
30020CI  TRANSF3RNATI9N  FACTORS.  AND  RE4CTI0N  CJSFFI Cl  ENTSl  AND 
30030CS  SUPPLIES  THE  REACTION  VALUES  FOR  SPECIFIC  DEFLECTIONS 
30040C 

30050  C3NN0N  RINC.LDTYPE.KRF.4RAN0.TINE.  I . YC  1 00).  0.0'J.  Y'J.  YFAIL. 
30052*  EL9.  39)  HO.  FPC.  FOY.  I CASE.  AS  I 4>»  APS<  A>  ♦ 01  4>,  DPI  4).  FOC. 
30054*  EC.  ES.0AREA.PAREA.ENA0S.2KLN.  VL1 . VL2. 

300SS*  NENO.ASCS.  VCL.OOL SLAB, KCONP.HS.BS.NSL ADS. NANEF(2>.KL0AD. 
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PROGRAM  RCBEAM  (CONTINUED) 


30056*  W . P0*  C3.L0C.  S»  ILEN.  CD.  PS3.  PD3»  PR.PEXT.PC.  TC»  T0»  DELAY# 

30057*  TT<80»2>»P®<80.2>.  RE4C<80.  21.  I9DEXI2).  BR<2>» 

30058*  9UI9.  RH33.  V3.L1  » AA<3»  2>»  99<8  > . AFR3NT.  ASt  D£»  G.  G2»  G3»  G4»  PP2»  OT 

30100  REAL  N.  I C.  I G.MN.KK  1.KK2.KK3.HUC  4>.  l CR(  4)  . <T.  ICC#  ICS 

30130  G0T3I  4#  500. 45) « I ENTRY 

30140  4 RETURN 

308  IOC 

30830C  » ENTRY  2j  OETERNINE  RESISTANCE  FUNCTION  • 

30840  45  9*ES/EC 
30850  FR=8.0*S9RT<FDC) 

30860  t G*BB«H3«»3/12.*<9-1  >«<ASU  >*<0(  1>-H0/2O**2 
30861*  *APS<l>*CH8/2.-0Pn>>««2) 

308  70  HN»2.0«t GAFR/H8 
30872  IFtKC3NP.EO.O>G3T3  SO 

30874  Y9ART*0*5*<HB»H9*8B*HS*HS»<BS-BB>>/{HS*<BS-BB>*H8*99> 

30876  IG»I  G*C0.S«HB-YBART>**2*HS*«3*<8S-B8)/12.0 
30877*  *HS«<BS*BB>*<  Y9ART-0.  5«HS>**2 

308  78  94* I Q»FR/<HB*YBART> 

30879  SO  IF<KC0MP»EQ.O>BS*9R 

30880  CALL  N0HE9TI  F0C.  FOY#  ES#  9. 0.  BS»  AS#  APS#  D.  OP.  NU»  ! CR.  I C» KC0NP.  HS»  BB> 
3I800CI  OETERNINE  N3NENT  AND  DEFLECTI 39  CJEFFIC1  E9TS 

31 81  OCt  F0R  CRACKED  P3RTI09  0F  SLAB  BEHAVIOR 

31820  106  8*0 

31830  ICASE4*ICASE-4 

31832  ICC*!CR<  I > S ICS*ICR<3> 

31834  CALL  COEFdCASE*.  ASS.  BSS.AF#  9F#  ICC.  ICS1 
31840  O0T3fl82.  185#  190).  ICASE4 
31850  182  QUTERN*  1 .O/BSS 
31860  O0T0  195 

31870  185  9UTERN*<NU{3>/NU<1  J*I.O>/BSS 
31880  0070  195 

31890  190  0UTER4*  (0.5*4UC3>/KUC1)*1.0)/8SS 
31900  195  G3T3C200.  2I0.2101.ICASC4 
31910C 
319200 

31930CJ  « OETERNINE  RESI STA9CE  (T0T*->  CURVE  FIR  MALL  • 

31940CI  • <0  IS  19  UNITS  3F  L9.  <K  IN  LB/IN..  AND  Y IN  INCHES)  • 

31950CI  

31960C 

319700  CASE  5 

31980  200  0I*NM/<BSS*EL8> 

31990  KK1*EC*IG/<ASS»ELB»«3> 

32000  Y I *QI/KK 1 

32010  KK2*EC*ICRC  1 >/<ASS*ELB*»3> 

32050  205  0U«QUTERN*NU<1>/?LB 
32060  208  YU*9UFKK2 
32070  O0T0  280 
32080C 

320900  CASES  6 A90  7 
32100  210  01*KM/<8F«tLB1 
32110  KK1*EC*IGF»AF*EL8»43) 

32120  Y1»01/KK1 
32130  02*HUC3>/<9F*'LB> 

32140  KK2*EC*ICR<3>/tAF»ELB**3> 

32150  Y2*92/KK2 

32160  KK3«EC«tCR(3)/(ASS*ELB**3> 

32200  215  QU*QUTERN*NU<  1 >/EL9 
32210  220  YU*Y2*tO'J*Q2)/KK3 
32220  280  CJ9TI9UC 
32260  OFAIL*OU 
32270  YT«999.9 
3228 OC 

322900  CHECK  F0R  TYPE  0F  FAILURE  - LIGHTV.Y  REI9F0RCEO  3R  CONVENTIONAL 
32300  IF<HUtl».LT.1.54HH»G0T3  288 
3231  OC 

323200  CONVENTIONAL  TYPE  FAILURE 

32322  I FI  I CASE.  EO#  1 *0R.  I CASE.  EO.  5>  G0T3  272 

32324  YE*Y2*YU*<  1 •G“92',0U> 

.12  326  00 TO  273 
32328  272  YE*YU 

32330  273  YFAIL*YE«0. |/<AS< 1 >/»BB*D< 1 >>> 

323400  OUCTtLlTY  FACTOR  MUST  BE  ««  30 
32350  IF<YFAIL.GT.30.0*YE»YFAIL-  30.0»fE 
32370  0070  »00 


PROGRAM  RCBEAM  (CONTINUED) 


32340C 

32390CJ  ur.mir  remfirceo  type  if  failure 

32400C1  ME  F.»Ll.)«n'i  E<PRP£?I44  19  RASED  39  A STEEL  ELJ9GATM4  IF  20< 
32410  244  )C1EF=J0. 

32412  silir  ADI 

32414  READ,  93  AAR 

32420  •|“'l*-|C)EF*40RrCFoC> 

39  430  ARAR=3.  1 41  59«(  9-MAR/  1 A.  >*»9 

32  4 40  290  YFAtl.  = 4-3;»Tf  < ).9*A4As,«F0Y/'IPil.»I.A/9.  )««2-<  'X9/'i.  >««2> 

32460C 

32470C  TE9SILE  8E84RA9E  REHAVI  7 A 
32480  300  Kr<8E*».8E.  I1G8T9  285 
32630  312  -<T*4.0«|.  5 
32635  rS*ASCS«FDY 
39440  314  YT=3'l«'LO/- <T*TS> 

32642  0T*9U 

32644  tr<YT.LE.YFAIL>(BT3  316 

32646  YMYFA1L 

32648  0T«YT4-<T4TS/*L3 

32630  316  tr{YFAIL.LT.O.IS«?LB)YrAlL*0.1S*?L8 

32460  7FUL*0.  I*»*<T*T« 

3947oc  Aonjcr  L7Ao-o2=T.-:cri  )9  cj-9-:  Ft*  rear  o-:a>  liai 
32440  2* 5 10i.=  1-XSLA4.  I SO.  1-44.RA* '1.4/ 1 7:;A.  0 

327.10  i r<  int. • or* oi > o' r i >9? 

32710  YOL=)X/<<l 
32712  07H  99  •> 

3271  3 999  9)  M<  2»3»  994.  2941.  ICA«E4 

32  31  4 293  Y'H.  = 'M»C10t.-0!  >»<YU-YI  1/OU-Ol  > 

32715  2,  I |FO,>_*i.r.}iJ>Gjr>  2*3 

39714  “At9T.»3‘»_  =•.«,.•  VI  = *.)ll  S ST3P 
3971  7 294  Y0l.  = /l*<O'H.-11  :»<Y2*Yt  >/<02*3l> 

3271 A IF<0'JL.Cr.02»O)ri  293 

39719  Y0L«Y4*t  iDL-02>«CY,J-Y2>9OU-12>  5 KiT)  ?>| 

39720  295  Y 1 = Y I * Y OL  $ Y2*Y2-Y0t_<  Y-J=Y'J-Y<X*  YT*YT-Y(X.S  YFAlL*YFAtL-  YOL 
32725  11*11-301.5  02*02- 0-X  5 10=10- 7X5  8T»8T-S0L*  0FAlL*QrAIL-3X 
3273.3  1FC44A90.9-:*  I )“Rt  9T  633.00L.YX 

32  750C 

32740C1  J ir»jr  L •40»->PFt.cCTt39  CURVE 

32770  IFC<SA9>l.P0.t  103M  333 

12780  “R19T  633 

32793  IF<  ICASE.EO*  SlftU-l  391 

32400  “RI9T  640,01. Yl. 72. Y2 

39410  r.m  330 

32420  320  “91 9T  640. 7!. rl 

32-330  333  (F<4P4A.1C0.I  101T1  33? 

32440  P919T  660.  00.  YU.  0FA1L.YFAIU 
32850  01 n 333 

32855  332  1 FroT.RE. 9U) GIT3  333 

32860  RRI8T  660.  7U.  Y'J.  OT.  YT.  OFAll*.  YEAIL 

32862  08T8  335 

32864  333  PRMT  660. 1U.  YU.  QU»  YT«  IT.  VT.BFAIL.  YFAIL 

324  70  335  CM  M RUE 
32440C 

32490  CALL  TRA9SC  ICASE4.  MLR.  MlRSE.  '<L1FE»  '<L4“.  X I S.  VA.2S.  VL  I F, 

02900*  1A.2F.VL1P.VL2P) 

32920  3SM4L*VCL«0<  1 >«AA 

32970  340  IFMRARO.NE*  1 1P4I9T  6?3i7SRRL 

32990  RETUR4 

33700C 

3301  OCl  ••••«••••••«♦*•» ••••••••**««•««•••«*•« «•••«•••*•••••• 

33020C1  • E9TRY  3«  0STER4I9E  ME  9E5I  ST49CE  t“E 4 '19 1 r AREA)  • 

33030C1  • 3F  THE  WALL  A5  A FoROrtOR  IF  Y<  1 1 • 

33040C1  •••••••••••••••*••••••••••••••••••••*••••*• «•«•**•••• 

J3050C 

33060  530  IFtYU>.9E-YFAIL»RU1  S60 
330  70  !F(Y<1  >.  nr.YUJ  G1M  >40 

03080  <31T0<  501.  S20.  520.  520.  501. 320. 320>.  I CASE 
33090  SOI  C39T14UE 
331 OOC 

3311  OCt  E*. ASTI  C RARr.P  --  CASES  I A90  5 

33120  ML4*'-<L4SE 

33130  1A.  I =VL1  S * VL2*VL2£ 

33130  IF{Y(I».RT.Yl)R9T.l  410 
33160C 
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PROGRAM  RCBEAM  (CONTINUED) 


331700  UNCRACKEO  PORTION  — ALL  CASES 
33180  505  ^Y(l)««l 
33190  RETURN 
33200C 

33210CS  CRACKED  PORTION  --  CASES  1 AMD  6 

33220  510  o=9i*(y< i i-yi >«<ou-oi i/(yu-yi > 

33230  RETURN 
33240C 

33250  520  I F(Y< II . GT- 721 GOTO  530 
33260C 

33270C:  ELASTIC  RANGE  — CASES  2. 3.4.6. 7 

33280  E8LM*/8LMFF 

33290  VLl*VLIF  S VL2=VL2F 

33310  IFCYCI1.LT.YI  1G3T3  505 

3331  SCs  CRACKEO  PORTION  — CASES  2.3.  4.  6.  7 

33320  0*Q1*CYCI»-YI  1«CQ2-01  1/(72-71  > 

33325  RETURN 
33330C 

33340CS  EL AST3- PLASTIC  RANGE  --  CASES  2.  3.  4.  6.  7 

33350  530  E8LM*'8LMSE 

33360  VLI*UL1S  S VL2=VL2S 

333B0  Q*Q2*K-»3«CYC  1 1-721 

33390  RETURN 

33400C 

3341  OCt  PLASTIC  RANGE  — ALL  CASES 

33420  540  T8LM*?8LMP 

33430  VL1*VL1P  * VL2*VL2P 

33450  IFCYCt:  .GT.YT1GOTO  S50 

33460  0*0U 

33470  RETURN 

334R0C 

33490C  TENSILE  MEMBRANE  RANGE  --  ALL  CASES 
33500  330  040T*<Y(t>-yT)«(0r*!L-0T>/<rEAIL-YT> 

335 1G  RETURN 
33520C 

33530CS  WALL  COLLAPSED  - N3  RESISTANCE  ( T3  AVOt  0 N-IMERICAL  OIFEICULTIEES 
33540Cs  FOR  CERTAIN  CASES  SET  RESISTANCE  EQUAL  T3  VERY  SMALL  VALUE1 
33550  560  0*IE-10 
33560  RETURN 
33S70C 

33595  605  FORMAT!/*  I NPUT  8AR  NUM9ER  3F  REINE3RCEMENT*. » 1 

336B3  633  F0RMATC/*3OL  = *»F10.2.«  LR  7DL  **.FB.4,«  IN.*1 

33700  650  FORMAT!// *LOAD- DEFLECT! ON  CURVE*./. 44, *0T  CLB1  7 (IN.1*> 

33710  660  F3RMAT(FI0.2.F12.41 

33760  695  F3RMAT(/*0SHRL  = ««FI|.2>*  LB*1 

33850  ENO 

3 5000  SU9R3UTI  NE  M3MENT<  FOC.  FOY.  ES.N.PV.  B>  AS*  APS.  0.  OP.  MU.  ICR.  IC. 

35001*  MC3MP.HS.HP1 

3501 OC  THIS  SUBROUTINE  DETERMINES  THE  ULTIMATE  MOMENT  CAPACITY  AND 
35020C  CRACKED  MOMENT  OF  INERTIA  FOR  REQUIRED  SECTIONS 

35040  REAL  K I .8  2. 8, '.KUO.  N.  I C.  I CT-OT.  MUC  41 . I CRC  41 . AS!  41.  APS(  41 . D<  41. 0P«  41 
35050C 

3S060C1  DETERMINE  VALUES  OF  CONCRETE  PARAMETERS 
35070  45  K1»0.94-FOC/26E3 
3 5080  82*0.  50-F0C/8E4 

3S090  8 3*<390O.O*O.35»FDCl/<3E3*O.R2*FDC-F0C*FOC/26E3> 

35100  EPSC*0.004-FDC/6SE5 

351500  ************************************************** 

351 600  • DETERMINE  ILTIMATE  M3MENT  CAPACITY  ANO  CRACKED  • 

351700  « MOMENT  OF  INERTIA  FOR  REOU! RED  SECTIONS  * 

351800  *••««*-•»•«••••« •«*««« *•**•****«*« ••*•••*••••*•«•• 

3S190C 

35200  It*OS  I CT3T*0 
35210  DO  1 70  I®1.4 
35220  IFCASdl.EQ.OldTO  170 
35230  11*11*1 

352400  ALL  PROPERTIES  ARE  COMPUTED  F3R  A WIDTH  R 
35250  TENS*AS(I»«FD7*PV 
35260  IF(APS(tl.LE.01G3T3  150 
3S270C 

352BOCJ  WALL  HAS  C3MPRESSI IN  REINFORCEMENT 
35290  C*8I*K3«F0C*B*0P(I1 
35300  TERM  1 *0*  5*(  TENS/APSC  1 1*ES*EPSC1 
353i 0 TERM2*ES*EPSC*( TENS- Cl /APS! I 1 
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PROGRAM  RCBEAM  (CONTINUED) 


35320C1  0ETERHI9E  L1CATI39  JF  <*MT-fAL  Ax  I S 

35330  IFtTE9S«Lr.C)03TT  143 

35340C 

3S350C1  < > l>»  » O* 

3 5360  FPF=TEAHI*<3«F0(V?.r>-c  XTC  C rERH  1 *<  3*  FOC/2.  0)  *«P 
35370*  -CTER92*ES*EPSC«<3*F0r>> 

35380C*  F * S 9‘JSr  HE  < = FOY 
35390  IFCFPS.LT.FQV,53T3  130 
35400  FPS=FDY 

35410  130  TPS=AP«Cl > « C FPS- < 3«F0C> 

35420  <'IO=C  TE9S-  TPS>/  C<  1 «<  3*  FOC* A> 

35430  91JC  l )*C  r-MS-rPS>«<0<  l >-<2*<'J0>*TPS«C  OC  I >-DPC  I > > 

35440  IC-»C  I ) = A*<»ID**3/3.  0*9*4SCI  >«<0C  ! >-<iJ0>*«2 
35450*  *C9-I  )«AP4(l  >»C<iJO-Q®C  I >>*«2 

35460  GOTO  152 
35470C 

35450C1  <00  < 0* 

35490  140  FPS=-TEAHl*S3ATCTER'1l**2-TEw>12) 

35500C;  F*«  VIST  AE  <*  For 
35510  IFCFPS.LT. F0Y1G3T3  145 
35520  Fo«*FDY 

35530  145  TEAH3*TE9S*APSC  1 >«FPS 
35540  -<IID=TERW3/C<  l«<3«F0C*B> 

3S«50  M JCI>*T£RM3«C0C  t )-<2*<'IO>-A®SC  1>*FPS*C0C  I l-DPC  I ) ) 

35  3 ICBC  I >*B«<UI)**3/3*9«ASC  I ) *C  DC  I >-<'J0>««2*  9*  APSC  I > *C  OpC  I > — <00»«*2 

35570  GOTO  152 

JS580C 

3S  590C1  WALL  HAS  93  C3HPRESS139  RE!  9F0ACEHE9T 
35600  <50  <OD=>TE9S/C<1*<3«FOC*B> 

35610  HOC  1 > = TE9S*CDC  1 ) — 2«<00» 

"5620  ICAC)  = 3*-<>JD*«3/3.0*9*ASC1>«C0CI  >-<nn>**2 
J5630C 

35640  * 52  IFC<C3HP.E0.0)OTT1  155 
3 5650  1FCI.E0.3XHT3  170 
35660  I FCHOO.L T.HS1  G3T3  170 
35670C 

35680C  • TEC  AEA9  — 9E0TAAL  AXIS  3'ITSIOE  FLA9GE  « 

3S690C  COSE  EVHV4LE9T  AECTA9GUL AA  STRESS  AL  )C<  > 

3 5 700  ASF=0.A5*FOC*C  A-APJ«OS/F0Y 
3 5710  <00=  C ASCI  1-ASF)*FOY/CO.SS«FOC*A»> 

35  720  HOC!  > = ASF*FOY*COCI  > -0.  5*HS>*  C A«C  I )- ASF»*FOY«C  OC  t >-0.  5*<00) 


35  730  1CACI  ) = AP*<ii0*«3/3.0*CA- AP)«HS**3/I?.0»HS*C  A-ap)*c<00-0.5*HS>**2 
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35740*  *9*ASCt  >«<OCI  »-<00>*«2 

35750  155  lCT3T=tCT)T*ICAC  1 1 
35760  170  C39TI90E 
35570C 

3>7R0C«  0ETERWI9E  AVERAGE  CR4C<£  ' i 9 T JF  I 9EATI A 

35790  1 75  I C=  1 CT3T/ 1 1 
3 5500  -CET0R9 
35A10  Evo 

40000  SII9R30T19E  C3EF  C I CASE4.  ASS.  8SS»  AF,  AF.  1 CE9.  1 SOP> 

400I0C 

40020C  THIS  S09R3IJT19E  OETEA^l  9ES  DEFLECTI09  A9D  93HE9T  C0EFFI Cl E9TS 

40030C  F0R  TEE  BEARS  WITH  VARIABLE  93HE9T  3F  I9ERTI A 

40040C 

40050  REAL  1CE9. ISO® 

40060CS  CASE  5.  39E-WAY  SIHPLY  Si|P®3RTE0  WALL 
40070  ASS*5.0/3H4.0 

40080  BSS=0. 1 25 

40090  AI  = I SOP/ 1 CE9 

40100  G3T3C270.60.  70).  ICASF4 

401  IOC 

401 20Ct  CASE  6.  39E-WAY  FIXED  E9D  WALL 
40130  60  AF*C. 00953*. 0321 3*Rl >/ C . 21 l * . 289*RI > 

401 40  AF*. 00 1 32* .01 1 69«At-AF*C .0223*. 10R5*RI > 

40150  AET'JR9 
401 60C 

401  70C:  CASE  7.  39E-W4Y  PR3PPF.0  CA9TILEVFR  WALL 

40180  70  AF*C. 0109*. 0308«RI  )/<•  1926*.  1 407-R!  > 

40190  AF*-.  00439-.  00342*  AI*9F*C.  05  333*.  02,’53*R1  ) 

40200  270  RCTJR'C 
40210  E90 

50000  SU8.53UT19E  TwA9S  C I CASE4.2XLH.  EXLOSE.  *<LHFE.  TKLHP.  VL  I S.  VA.2S. 
50010*  VL1F,VL2F,\A.1P.  VL2P) 
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PROGRAM  RCBEAM  (CONTINUED) 
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50020C 

50030C  THIS  SU8R3UTI  ME  DETERM I MES  TRAMSF3RMATI3M  FACTORS  AMD 
S0040C  OYVAMIC  REACTI..M  C3EFFICI EMTS  F3R  3ME- WAY  REAMS 
SOOSOC 

50060C  all  CASES 

50070  E<LHSE»0.7S 

50080  XMLMPaO.  66 

SJ090  VL1S=0.107 

50100  Vl.2S=0.393 

50110  \A.|P=0.125 

50120  W. 2P=0.375 

50130  00X3(300.  310.  320). I CAS £4 

50140C 

50150,:  CASE  5 

50160  300  /8LM= E8LMSE 
50’.  70  VL1*VL1S 
50180  VL2*VL2S 
50190  RETURM 
50200C 

50210C  CASE  6 
50220  310  >-(LMFE*0.  7? 

50230  VLIFsO.136 
50240  VL2F*0.  364 
50250  00 T9  330 
50260C 

50270C  CASE  7 
50280  320  EXLMFE*0.  78 
50290  VLIF«0.*6S 
50300  VL2F*0.4S9 
50310  330  EMLM'EMLMFE 
50320  VL  I * VL  I F 
50330  VL2«W.2F 
50340  RETURM 
S0350  EMO 

70000  SU9R3UTIME  RAMDJM  < I EVTRY) 

700!  OC  THIS  S’JRRIUTIME  IMPCTS  MEAM  AMO  STANDARD  0EVIATI3MS  F3R  RAMD3M 
70020C  VARIABLES)  GENERATES  RAM03M  VALUES)  AMD  C3MTR3LS  REQUIRED 
70030C  MUMBER  3F  CASES  T5  BE  RUM)  AMO  3IJTPUTS  FIMAL  RESULTS  AMD  SUMMARY 
70040C 

70050  C0HH3S  H IMC.LOTYPE,  XRF.X  RAMO.  TIME,  II»Y(IOO),OT.OU»YU,  YFAIL. 

70052* 

700  54* 

70055* 

70056* 

70057* 

70058* 

70080 
70090 
70100C 

701  IOC 
70120 
70130 
70140 
701 50C 
70160 
701  70 
70180C 
70190 
70200 
70210 
70220 
70230 
70240 
70250 
70260C 
70270C 
70275 
70280 
70290 
7041 CC 
70420 
70430 
70440 
70445 


2LB.BB.H9.  F PC.  FOY.  I CASE.  A5C-».  APS<  4)  . D<  4)  . DPI  4>.FUC» 

EC.  ES.OAREA.parEA.EHA*S.  EMUM,  VLI » VL2. 

MEMB. ASCS. VCL.  OOLSL  AP.MC4MP.  HS.  BS»  M SLABS.  MAMEF(2>»  XL3AD, 

4.  P3.  C3.L3C.  S.  EL  EM.  <'0.  PS3  . PD3.  PR.  PEST*  PC.  TC.  TO.  DELAY. 
TT(80.2).FP(80.2).R£AC<80.  2>.  I MDEX( 2) » BR<  2). 

MWI  M.RH08,  V3.L1.  AA(8.2).  MM(8>.AFR0MT.  ASIDE.  G.  G2.  G3.  G4.  PP2.  DT 
C3MM3M  /RAMO/  TIMEC 
01 MEMS19M  CH  125(7),  CH  1975(7).  TO  IST(7> 

VALUES  FOR  97.81  ( 1 9. 24.  29.  34.  39.  44.  49) 

DATA  CHI  eS/  • 4’>88»  .5167..  S533.  . 58  25.  . 6065.  . 626  7.  . 6440/ 

OATA  CM 1 9 75/  1 . 7295.  1.6402,  1.5766,  1.828  4.  1.4903.  1.4591,  1.4331/ 
DATA  TO!  ST/2. 093.  2.084.  2.  045,  2.  0 32.  2.  022.  2.  01  6.  2.  01 0/ 

G3TJ(  5.  50.  70).  IEMTRY 
5 X 0'.WMY*XM3RM1  (*1.0.0.0»l.0> 

IHtTIALtEE  RAMD3M  M’JwRER  GEMERAT7R 
»RI  MT./.«I  MPUT  MRA'JO*. 

READ, M9AM0 
03  47  1*1.  VRAM*) 

X0'JMMY=XM3HM!  (O.O.O.O.  1.0) 

47  C7MTI HUE 

1M0EX»0S  SPSI'OS  SSPS)*0 
1CHECX*20 

l MPUT  MEAM  AMO  STAMOARO  DEVI  ATI  3 M FOR  RAM038  VARIABLES 
IF(L0C.£).2)r.U)  30 
PRIMT  87 
READ. SMEAM.SSD 
REIMF1RCF0  CIMCR'TE  WALL' 

30  PRIMT  86 

READ, FOYMEAM. FOYSO 
IF(L8C.E0. | )PR*MT  94 

if(l3C.me. i )pp'.Mr  95 
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PROGRAM  RCBEAM  (CONTINUED) 


7)45'’  repir-i 

70460C 

7D470C  GENERATE  R4NU1*  VAI.ORG 

70 A 70  S-D  POf?<X)EM|CO.O.FOYMC4N.9  )YSU) 

7osao  ivcfoy.le.ojgito  so 

70S°S  tFCLJC.E0.2.3-».S4e4N.E0.O)G1T)  67 

70S90  SO  S*XN3RM|  10. O.  KARA*.  «'0i 

70600  IFC  «.LE.O>  GJ  r t <-o 

70610  6S  INDEX* INDEX* I 

70630  RETURN 

70630C  SUM  VAL  l£s  3F  osi  AND  =S)-«6  F3A  USE  I N STATISTICAL  ANALYSIS 
70640  70  SPS5=SPS3*PS) 

70  6 SO  SS»S-7«SSPS3*P£0*OS) 

70660C 

■>06700  OUTPUT  PIyAL.  HESUL  fb 

70730  76  KFCL3C. El- I >P»t NT  92.  FDY  , "»  PSJ.  T!  *-tC 

7073S  IFCLOC.NE*  UPRINT  90.  FOT  . “*•  3*  T l ARC 

70740  40  IFClNOEX.LT.tCHECKJRETURN 


70  7S0C 

70760C  OR  TERMl NE  MEAN.  ST4N0AH0  DEVIATION.  AND  STANDARD  E^ROR  FOR  t- 
70  770  EX3*IN)EX 

70700  7vte4X*!>P33/RN3 

70  790  SD*SORf<CSSPSO-EN3«EKcAN*?MEAM>/7MO> 

70600  STOERRaSO/CSORTCENO-I >> 

704 1 OC  CHECX  !F  MAXIM  !M  3F  SO  PRO  SAMPLES  OBTAINED 
70430  tFCH0EX.E‘J.‘.3>C.)Tl  63 

70430C  CHECK  IF  9S*  CONFIDENCE  INTERVAL  FOR  MEAN  PS3  VALUE  IS 
70440  lF<ST0RRR«T0lSr:n')I>E4-tS>/S>/?'4€Av.GT*0.  J03G3TA  61 

7GRS0C 

70fi60C  CONFIDENCE  INTERVAL  IS  WITHIN  lOt  -*  DETERMINE  UPPER  LIM1?  it 
70470C  9 St  CONFIDENCE  interval  for  standard  deviation 
70460C  PROBABILITY  VALUE  4X0  ITS  VS*  C3NFI  DEXCF.  INTERVAL  UPPER  LIMIT 
70690  6P  SOU*SO/<S9RTCCMI?S<(HOE«.tS>/S>>> 

70900C  CHECK  IF  MAXIMUM  JF  SO  PSO  SAMPLES  267AIXKD 
70910  I FC  t NDEX*  EO*  SO 3 ft?  T 7 S3 

70920C  C«EC4  IF  UPPER  VALUE  OF  9St  CONFIDENCE  INTERVAL  FOR  STANDARD 
70930C  DEVIATI3N  IS  VITKIN  0.10*'»EAN  OF  THE  STANDARD  DEVI ATt 3N 
70940  tF<C<SOU-SD)'TMEAN).r,T.O.IO>R3TA  61 

709 SOC 

70960C  9 St  CONFIDENCE  INTERVAL  IS  WtTRlN  101  FOR  63 TK  MEAN  4N0  90* 

709 70C  PROBABILITY  VALUE  --  THEREFORE  SUFFICIENT  SAMPLES  OBTAINED 
709B0C  DETERMINE  9 5T  C1NF10ENCE  INTERVALS  FAR  MEAN.  STANDARD  DEVIATION 
70990. 

71000C  and  10*  and  90*  PROBABILITY  values 

71010  S3  TMEANL**ME4N-ST0ERR»TDIST((INi)Cx-IS>/S> 

71  OPO  ymEAXIJ*  EME4N»STDERR*TDI  STI  C INDEX-  1 5>/S> 

71030  SOL  = SD/(  SORT!  CHI  9 7SCC  INDEX-  1 S>/S>>> 

71040  PlO*TME4N-t.242*SD 

710S0  P|  TLsRMEAN-1 . 2«3*SDU 

71060  P 1 OU»EMEAN- 1 • 262*  SOL 

71070  P90*E*<EAN*I  .242«SD 

71040  P90L*EMEAN*|.2B2*S0L 

71 090  PV0*7MEAN»I .2B2«S0 

71100  P90U*EM£AN*I.242«SDU 

71110  P90U»RMEAN«  l.262»S0U 

71 120C 

7H30C  3UTPUT  STATISTICAL  PARAMETERS  OF  INCIPIENT  COLLAPSE  PRESSURE 
71 1 40  PRINT  100.  TMEAN.  EME4NL.  EMEANU.  SO.  SOL*  SOU.  PI 0.  °I OL » PIOU* 

71 1 SO*  P9Q.P90L.P90U 

71160  PRINT  I OS.  INDEX.  STOERR 

71170  GOTO  999 

71 1B0C 

71I9CC  9S*  CONFIDENCE  INTERVAL  Is  NOT  WITHIN  10*  F3R  ROTH  MEAN  AND  90 
7 1 2006 

7121  OC  VALUES  -*  THEREFORE  OBTAIN  S 4DDITI3NAL  SAMPLES 
71220  61  I CHECK*  l CHECK  ♦ S 

71230  RETURN 

TI240C 

71270  B6  F0RMATC/«INP-JT  MEAN  AND  ST4N04RO  DEVIATION  FJR  FDY*»*> 

7I2BO  B 7 F?RMATC/«INPUT  M*A'.  AND  STANDARD  DEVIATION  FOP  S*«*> 

71290  90  F3RMATCF9.2.FI0.2.F1  4.3) 

71310  92  F3RMATCP9.  I .FI  i .2,  F|0>2.  FI  4.  3> 

7134C  9 S FORMAT'  ///»  SX,  *FIJY*.  7X.*PS0*.  6X»  • COLLAPSE  TIME*) 

713S0  96  FORMAT!///. SX.‘Fi>r««9X.*S*»BK»*P$3*»6X. ‘COLLAPSE  TIME* > 
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PROGRAM  RCBEAM  (CONCLUDED) 


71360  100  F3R»AT<///.  I 1 X.  «STAT!  ST1C4L  PROPERTIES  OF  19CIPIE9T  PS3*. 

71370*  //.39X»«95;  C39FI  0E9CE  L MI  TS*» /.  7<,  « I TE4*.  1 OX* 

71380*  * VALUE  L1WER  UPPER*.//.*  5EAV*.  F29. 2. 

71390*  2F12.2,//,*  STAMUARO  OEVI  AT109*.  FI  5.  2.  2F1  2.  2. //» 

71400*  « 10*  PROBABILITY  VAl  UE*»  3F12.2.//. 

71410*  » 90*  PPIBABIL-TV  VALUE*.  3F12.2) 

71420  105  FJRRATt//.  SX.  *>UF<RER  3F  OBSERVATIONS  = *.I3./.5*. 

71430*  «ST490AR0  E8R3R  = «.F5.2> 

7I440C 

71450  999  STOPS  E90 

71460  FUNCTION  XN3RBKX.  A.  5) 

71470  1 r(X)  1 0.  20.  20 
71480  10  X0*RA9F(-1 .0) 

71490  20  X 1 *RANFC 0.01 
71S00  X2*RANF<0.0> 

71510  r = S08T(-2.0*AL3G(xn  >*<  CISC  6.2«3I  34*X2)  > 

71520  XN3RMt*A*y«9 
71530  RETURN 
71540  END 
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STBEAM 


Steel  Suppoi't  Beam 


lb5 


PROGRAM  STREAM 


OOIOO  PMGWI  ST8£A-*1  ( INPUT.  JUTPur,  TAPEI  > 

00(05  CALL  RETR<  7HSTBE4N2,  7HSTBEAR21 

00I10C  * THIS  P3RT11N  JF  THE  OR3GRAR  INPUTS  THE  REQUIRED  ELERENT 
00II5CJ  AND  L3A0  DATA  AND  INITIALISES  CERTAIN  paeAHETCP'  * 

O0I2OC 

0C-‘  50  C3RR3N  KlNCiLOTYPE.  <R*.-<RANO,  1 I RE.  1»Y<  tOOl.OT.  OU.YU.  YFAIL, 

00.  52*  ILB.  Hd.  BFLG,  Ti-LG.  Tu.  FOYS,  l CASE. •< PLATE.  <C3RP*HP»  BP,  ES» 

00' 54*  HPC.HS.  EPC,  FOC, EC.  9S,  FOTH.  AS.  0.  APS,  DP,  9AREA.-  PAREA,  TRASS. 

001  SS*  THLR.  VL1,  ‘A.2.  NSL  AAR,  NAREFT  21  .KL3AO.OOL  SLAB, 

00156*  W,  PS.  C3.L3C,  S,  ELEN.  CO,  PS 3,  P03.  t'tt  PEXT,  PC,  TC.  TO,  OELAY. 

00157*  TT(80»2).eP<80.2>.REAC<«0.  2>,  INDEX ( 2>.  BRC21. 

001  SB*  NHI  N.RH13.  V3.LI.  AA(8.P).NN<8),  AFMNT*  ASIDE*  G.  G2,  65*  G4»  PP8*  DT 

00160  LOGICAL  L 1 

00165C 

001  TOC  * READ  TITLE  AND  C3NTR1L  PARARETERS 

jOI  72  PRINT  67 

001  74  READ  6B.  TITLE 

00176  PRINT  720 

001  7q  READ.NSLABS.-KLJAO 

001S0  PAR£A=0  S O0LSLA9=O 

00182  IFTKL3AD.E0.0>G3T3  40 

00184C 

00196CX  INPUT  SLAB  REACTION  DATA  FILE  DATA 

00188  PRINT  725 

00190  03  39  J*!,NSLA9S 

00192  PRINT  735. I 

00194  REAO.NAREFUJ.ISIDE 

00196  CALL  PFtlROHRET.  l.NAREFT  J>) 

00198  I Fv I SI DE. EO. 1 1 READ! 1 , 7 SAREA. OUR, HS 
00200  irUoI0E.Ea.2>REA0(l.  10UR.SAREA.HS 
0020E  510  I NDEXC  J) * 1 
00204  REAOO.  1NPSINT 
00206  IFTISI0E.E0.21G3T3  520 

00208  SIS  READ!  I « 1 <TT(  1J.J1.ppIJ),  I), REACT  1 1.  I),  OUR,  JJ=  I . NP3IN  i> 

00210  G3T3  525 

00212  520  REAOd.  )CTT<  1 1.  I).PP(  J 1,  J),  0')R.  »EAC(  J I.  J>,  JJ»1»  NP3INT) 

00214  525  BR(  I ) *(  REACI  2.  1)-REAC<  1 *.I)  )/<  TT(  2»J)*TTM»  l>> 

00216  BP*<PP(2»  J)-PP<  I,  l))/CTT(2.  Jl-TTU.  J > > 

00218  REWIND  1 

00220  CALL  DR3PK1) 

00221  ODLSLAB*OOLSLAB*t  50. Q*SAREA«HS't  728.0 

00222  39  PAREA*PAREA*SAREA 

00224  RINC  = 0 S LDTiFE'-S  S HRF*0  I KKANU=0 

00226  G3T3  4S 

00223C 

00230C  INPUT  TRIBUTARY  SLAB  DATA 
00232  40  PRINT  730 

00234  D3  42  J*1.NSLABS 
00236  PRINT  735,  J 

00235  READ, SAREA. MS 

00240  OOLSLAB*QOLSLAB*  1 50. 0*SAREA*RS'  1 2*  0 
00242  42  PAREA*PAREA* SAREA*! 44.0 
00244C 

00246  PRINT  8S 

0 0248  REAO.KINC.LOTYPE.HRF. KRANO 
00250  45  CONTINUE 
00252  DELAY*0 

00254  67  F3RR ATI T* INPUT  TITLE*.,  1 
00256  68  F3RMATIA591 

00258  8S  F9RRATIT*INPUT  H I NC.LOTYPE.H RF.4RANDI  1 »RAn03R) «»  * ) 

00260  720  F3RRATC/* INPUT  NURBER  3F  RLABS  SUPPORTED  BY  B- AR.  AND  IF  *. 
00262*  *SLA9  REACTI0NS*'*ARE  T3  BE  CALCULATED  (0>  JR  READ  FR3H  «. 
00264*  *OATA  FILE  <1)*»,1 

00266  725  F0RRAT</*INPIIT  REACTION  DATA  FILE  NA4E  AND  SIDE  •» 

00268*  *<I*SH0BT»2*L3NG)*1 

00270  730  F3RRATI/MNPUT  C3NTRI BUTARY  AREA  (SO  FT>  ANO  THICKNESS  (IN.)*) 

00272  735  F3RRATI  6X,  «F3R  SLAB  N3.*.t2.,l 

00274C 

00570C  INPUT  L3A0  PARARETERS 
00571  IF<LDTYPE.E0. 51G3T3  20 

0057SC  L3CATI0N  I*  FRONT  FACE  L0AOING  TUSEO  IN  R00R-F1LLING  PROCEDURE) 

00580  IF(<L3AO.EO.l>O3T0  25 

00585  100  W*!000.0  S P0*  I 4.  7 S C3»l  120.0 

OOS90  IF(RRF.NE.1)(S)T0  102 


167 


'■  a --  ■ ... 


00595  L3C-I 

00600  1FURA90.EO.1  IGOT.O  106 
00605  PRI  XT  600 
006!  0 REAO.  S 
00615  GIT)  103 

00620C  LOCATION  2.  TOP  FACE  DA0I9G 

00625  102  CD=0  S L-)C=2 

00630  7LE9  = 7L  8/12.0 

00635  105  IFUtMC.EQ.  DG3T3  ‘.06 

00640  PRI  \IT  610 

00645  REAO.  PS3 

00650  PA=2.0*PSt)«(  7.0«P.)*4. 0* PSO ) / C 7.0*P3*PS)> 

00655  600  F3RMAT(/«t9PUT  S«»*J 
00660  610  F3RMAT(/*l  MPIJT  PS3«»t) 

00665C 

00670C  * I MP'JT  R33M-F1LLI9G  PARAMETERS  ► 

00675  106  1F(-(RF.E0.0>G3T3  20 

00650  1 0 PRI9T  700 

0065S  RH33=0.076  i Ll=. FALSE. 

00690  U£LAY=  I £ I 0 

0069  3 8EA0.9MS.V3 

00700  AT*OS  AFR39T*0S  AS10E=0 

00705  03  15  1*1. 9M9 

00710  PRUT  710.1 

00715  READ.  AAU.  1 >.99(  1 >.  AA(  I .J>> 

0 0 720  AAU.  2)  = AAU.  21/1000.0 
00725  AT=AT*4A(  I.  1 ) 

00720  5=59(1)$  O3T0U2.14.  14). 9 
0073S  12  AFR39T=AFR39T*AAU.  1> 

00740  G3T3  18 

00745  14  ASI  QE=ASt  DE* AA(  I . I ) 

00750  18  IFCAPU.2».LT.')E1.AT)0ELAY  = AAC  i.a» 

00755  AFR39T*AFR39T/AT$  ASI  DE=ASt  QE/AT 

00760  700  F0RMAT(/«1  SPOT  9M9  AMO  »33M  V3LUME  (Cc>»»«> 

00765  710  F3RMAT(/«!9Pijr  ARFa  (SO  FT)  »L3C"Tt  )9  G)OE  5 OSi_Ay(MSEC>* 
00770*  * F3R  wl  9D3w«.  IP.  i > 

00775  0=1.4  $ G2=  1 • / G $ 03=1.-02  $ G4=2 ./GO  $ 05=0*1. 

00780  PP 23.1012 

00  78  5 C=S78K  G»P3«32.«I44./RH33) 

00790  TAiJ=2.«(V3«*(l./3.)l/C 

0 0 79  S 0T=TA.|/4.0 
00500C 

00805  20  C39  TI  -ME 

00810  25  CALL  CHAI9( ST8EAM2) 

00815  99  ctip 
00520  E9D 

01000  SE0ME9T  3r8EA5P(  I 9 pi  IT.  I'irP'tT.  TAP  El  > 

OIOIOC  THIS  SEGME9  T CALCILArE''  THE  RESI S rAMC"  p-JMCTIOM  AMO 
01020C  1.340190  AMO  SILVAS  TOE  0YMAM1C  E0IIATI39S  xf  M3TI )9 

0 1 030C 

01050  C3MM1M  U9C.LOTrPE.8  8F  XtAMO.Tl  MS.  1 . Y<  I 0 )).  7T«  O'l.  Y‘l.  YF4  IL. 

01052*  7L8.H8.8FLG.  TFLG.  TU.  FOrS.  1CASE.  (PLATE.  60. 15k.  OR,  HP.  ES. 

0 1054*  HPC. HS. FPC. FOC. EC. 8S. FOYR. AS.  O. AP?. 0-» OAREA. PAREA.  7 MASS. 

01055*  7<LM. VLl.  VL2.NSLA9S.9AMEF(2>,ML3AI).  OOLSLA8, 

01056*  J.  P3.C3.L3C.S.  7LEM.  Cl).  ®S)»  P03.  PF,  PEXT.  PC.  TC»  TO.  DELAY . 

0105  7*  TT( 80.  2>.PP(80.2>  . REAC(5Q,  2).  1 MQSX(  2>  • 8R(  2>. 

01058*  MWIM.RM33.  V3.L1.  AA(8. 2).  99(8>  , AFOJ9T.  ASIDE.  G.  G2.  C3»  1*4*  PP2.  OT 
0 1 078  C3MM3M  /RANI)/  TtMEC 

01050  0ME9SI39  A(  1 07> . V(  1 00>  . T(  I 00).  v»SC  1 00> . VL(  I <>0> . P9(  I xj'.i 
01 100C 

01240  CALL  RE818TU) 

01250  lF(U9C.8E.|.3M.L0rYPE.E0.  5)  CALL  F3RCEU  > 

01260  14  tF(<RA90.9E.I)0)T3  35 

01270  CALL  F?5CE(  4) 

01280  CALL  RAMO)M(I) 

01290  34  CALL  848035(2) 

01300  35  CALL  REM  ST(  3) 

0t310C 

0I320C»  MtMtMiJM,  MAXIMUM.  AMO  STARTtMG  VALUES  ARE  OETERMiMEO  f» R CASES 

01J30C1  tfMEHE  fHF  L3A)  C4US19G  19C1P1,'9T  C ILL  APSE  IS  T3  5E  F3J90 

01340  13  I F(MI8C.  E0.31  G7T3  23 

01350  PF=4.0 

01360  PFMAX=0 

01370  PFM19.PF/2.0 
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PROGRAM  STBEAM  (CONTINUED) 


GJT3  20 

pf«cpfmim*pfmax>/2.o 

CALL  F3RCEC2) 

IFC-CRF.E0.01G3T3  24 
CALL  FILLCP!NT»2> 

INITIALISE  VALUES  F3R  RETA  METH0O  C BETA*  1/6)  AND  COMPUTE  VALUES 
FOR  FIRST  TIME  INTERVAL  ASSUMING  ELEMENT  INITIALLY  AT  REST 
1 3 I 

Tt  NE*0 

vc i ) -o  * yc  n*o 

DELTA*0.001 
IFCKRF.NE.UG3T3  30 
IK<T!ME.GE.<0ELAY’-.n0001>>G3T3  30 
TIME*TIME*OELTA 
CALL  FILLCPINT.3) 

G3T3  2 

CALL  RESIST! 2) 

AC  t 1*0*0  * VSC1>*0.0  S VLCI>  = 0.0 
TC1>*TIM£ 


01  3R0 
01390  16 
01400  20 
01410  23 
01420 
Ot  4300 
01 440Ct 
01 4S0C? 

01460  24 
01470 
01480 
0 1 490 
01  500 
01S10  27 
01S20 
01530 
01S40 
01670  30 
01  6S0 
01660 
01680C 

01690CJ  PROCEDURE  .~3R  ALL  :»J8r.£0UENT  TIME  INTERVALS 
1*1*1 

IFU.LT.  101  > GOTO  11 
PRINT  98.  TIME 


01700  1 
01  710 
01720 

01730  98  F0RMATC/«1=1O1I  TIME  **.F6.3»M  FAILURE  ASSUMED  T3  N3T  OCCURO 

01740  GOTO  6 

01  ISO  tl  TIME* TIME* DELTA 

01760  TU>*TIME 

01770  AC  l >*AC l” 1 > 

01  ITS  IFCKRF.NE.O1O8T0  10 

01780  CALL  FORCE!. 7' 

0 1 790  PNCI1*PEXT 

01800  93 TO  2 

011*80  10  CALL  FILLCPI  NT.  3) 

01890  PNi I >-PINT 

019*0  2 IF'ML0°3.E0.0»PT*P'I<I>*PAREA 
O'.NI'j  IF  •<u0AD-N£.O>P' *PMU> 

01120  03  8 J>-.  'j  1C 

01V30  Vi  !)»?;!•!  >*OELTA«V<  I ' I >*OELTA*DE!  TA*C  AC  I- I >/3.  * AU  1 46.  ) 

01T<Ci  CALL  RES13TC21 

nm<.  O AMEwkCPT-STIUJMASS'SKLN' 


01970  aac- vf.«A;Fv-A<n 

01980  Ad^ANC* 

0198S  I F C ANEW*  CO  »C  I PR  I NT.  ♦1985*.  TIME.  PT.UT. ’.MASS.  IMLM.  YU).  All- M 

01990  I FCABSC  AOELTAVC  ANEW*  I E-  10  :.LT.0-0’  P*TIe  9 

02000  8 CONTINUE 

02010  AC  1 )*  ANEW*  ADEL  TA/2. 0 

02020  PRINT  80.  TIME.  PF.  AC  1 1 . YC  I ) 

02030  9 CONTINUE 

02040  YCI>*YCI-1)*DELTA*VCI-1>*OELTA»OELTA»CACI-  1»/3.*AC  !>/«.» 

02050  VCI>*VCt-l>*0SLTA«CACI>*AC!-I.J/2.0 

02070  VILCl>*VLI*PT»VL2«QT 
02090C 

02100C1  CHECK  F3R  NAXIMUM  DEFLECTION  OR  FAILURE 
02110CI  IF  MAXIMI*  DEFLECTION  REACHED.  NALL  DID  NfT  FAIL 
C2I20  IFCYCI>.LE.YCI-l>.AND.PNCl>.Lf.PMC:-l>>a*T8  A 

01130  IFC YC I > .LT.O) 02  T2  * 

02135  IFCYCI7. 0E«  YFAIL  > 02T2  7 

02140  IFCTt ME- DELAY.  GC.0.01  0>D€LTA*0.002 

02160  IFC  TIME- OELAY.GE.  0.0201  DEL  TA*0.005 

02170  IFCTIME-DELAY.GE.O.  1 00>  DEL  TA*0.  010 

02180  IFCTIME-OELAr.GE.O.  500>  DELTA*O.OSO 

02190C1  IF  FAILURE  OEFlECTION  REACHED.  ELEMENT  FAILED 

02210  G3T3  1 

02220C 

02230CI  INTERVAL  HALVING  PR3CEDU2E  Tf  DETERMINE  LOAD  CAUSING  INCIPIENT 

02240C1  C8LLAPSE  FOR  CASES  WHERE  OESIRED 

022S0C1  ELPNENT  01 D NOT  FAIL  --  SET  PFMIN  T3  PF 

02260  6 CONTINUE 

02280  IFOCINC.EO.OIORTO  18 

02290  36  PFMIN«PF 

02300  IFCPFMAX.GT.OXMTO  16 

02310  PF*2.0*PF 
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s PROGRAM  ‘iTBEAM  (CONTINUED) 


O'-*  320 

.323300) 

02340  7 

02350 

02370 

02380  37 

023900 

■32400  1 / 

02410 

02420 

02430 

02440C 


oTp)  20 

•iw: '1  fail «-. u --  set  pf4ax  ra  pf 

C3NT1  N.JE 
TIMEC=  f[  AK 

IF(<INC.E0.0>fi3TM  IS 
PFM4XspP 

CUCC-f  '}  SEE  IF  LI  A!/  RANGE  IS  01  TUI  4 OE-ilRED  ACCURACY 
I F(  ( PF*AX-PFM  I4)/aFS*4«  GT  .0,01  7G1T3  I A 
IF(<RANO.NE.  I >G3r*  IS 
CAM.  RT N03M(  3> 

07 f 3 34 


0249CC)  3UTPUT  DATA  INCLUDES  THE  JPXIMUM  DETLECTIJN  ANO  THE  Or 


3R  HE  THE  ANO  VEL1CITY 
3PTI3NAL  OUTPUT  IS  THE 


024600  3CCURANCE  F)R  A N3N-FAILING  EL  El  £4 . 

024700  AT  COLLAPSE  FJR  A FAILING  ELEMENT* 

O24S0CI  ENTIRE  9EHAVI  3R  TIME-SI  ST3RY* 

02490C 

025000  OUTPUT  L3A0  OATA 
02510  18  CALL  F3RCET4) 

02520C 

025300  3UTPUT  FINAL  RESULTS 

02540  !F(Y(t».LT.YFAlL>P-HNT  70,Y(I>.T(I> 

02550  !F(Y(t).GE,YFAIL>PRINT  7!,r(I>»VCt> 

02S77C 

025TSC  CHECH  T3  SEE  IF  ENTIRE  TIME-HIST3RY  IS  DESIRED 
02580  PRINT  72 
02S90  READ*  M 

02600  l F(M.  E0*0>  G3T9  2S 

02680  PRINT  76»(T()>»PN(J>.A(  J »,  V(  l>,  Y<  J>«  VL(  »>.  I«l.!> 

02690  25  PRINT  77 
0271 OC 

02740  70  F2RMAT(/«NJ  FAILURE  - MAX  DEFLECT! 3N  3F*»F6.2> 

2.2  iSC*  « IN.  REACHED  AT»F7.3.«  SEC*  > 

02760  71  FS>RMAT</«eAILURE  3CCURRE0  AT».F7.3»*  SEC  (FINAL  VELOCITY  »•» 
32  770*  F7.2*  IN./SEC>«) 

02780  72  F3RMAT'/»IS  TIME  HISTORY  OESIREO  ( YES*  t * N3*0>*,»> 

02830  76  F3RMATC/*  TIME  PRESSURE  ACCELERATI3N  VELOCITY  * 

02840*  ‘DISPLACEMENT  VL«./. 

02S50*  (F6.3.F9.3.  F|2.  I . F]  2.  2.  FI  2.  4.  FI  1.0)  > 

02860  77  F3RMAT(///»  7<« * ',  > 

028  70  80  F0RMAT(/«ACCELERATI3N  N3  T C3NVERGING  AT  TIME  =‘»F6.3» 


02830* 
02390* 
02900* 

029  50C 
02960  992 
029  70 


« SEC  (PF  =,«,F7.3»*  PSI)«/*  A(  1 7 SET  ED'JAL  T3«» 
F3.1*«-  < AVG  3 F L Ap  1 2 !TERATI3NS>*/»  YU  > = •, 
F6.4»*  IN.O 


ST3= 

ENO 

10000  SlRROUTINE  F3RCEI I ENTRY ) 

I0010C  THIS  SUBROUTINE  INPUTS  THE  LOAD  PARAMETERS  AND  DETERMINES 
10020C  THE  I 3AD  AT  A GIVEN  TIME  F3=  HE  F3LL3WI NG  LOAD  TYPES: 

I0030C  I.  IDEALISED  PLAST  L3AD  ( FRONT  OR  SIDE  FACE* 

( 0050  C0MM3N  8 IMC.LOTYPE.  <RF.  < RAND,  TIME,  I , Y<  I C0>»  3T,  OU,  YH,  YFAIL, 
10052*  ELR«H9,RFLG,TFLG.  TW,  FDYS,  l CASE,  KPL  ATE,8C9MP,  HP,  BP.  ES, 

HPC.RS, FPC, roc, EC,  BS, FDYR. AS, 0. APS, DP, OAREA.PAREA, /MASS, 
»«LM.  VLl  , *6.2,  NSLARP,  NAMEF( 2> ,RL3AD*  3DLSL  A9. 

M,P9,  C6.1.EC,  S»ELEN.C0,PSa,PD3,PR,  P,PC,  TC.-TO,  DELAY, 
TTC80,2>.PP(80,2>,REAC(30,  2>,  . NDEX(  2>,  BRC2I 

N Ml  N,  PH33 ,V3»L1,aA(H,2),Nn(8>,AF'  iNT,  AS!  DE,  G»  G2,  G3,  G4.  PP2,  DT 


I00S4, 

I CUSS* 

10056* 

13057* 

10058* 

I0080C 

10130  IF<LDTYPE.E0.5)G313  700 
I 01  35  I * (XL'.TAD*  EO.  I > G3  T3  500 
10I40C 

10150  G3T3(2!5.200.  300.  4J.1  ENTRY 
I 1000C 

IIOIOC  CALCULATE  L?AO  PR3PERTI ES  "•  R GIVEN  PEA<  PRESSURE 
1 1030  200  fWT3(205,R!0l,L3C 

1 1040  205  PS3*(PR-  1 4.0«PS*S0RT(  196.  O‘P3*P3*19  6,0‘P3‘PR*PR‘PR>)/l6,0 
1 1050  G3T3  215 
I 1060  210  PS3»PP 

11070  215  PD3»2.  5«PS3*«S3/(  7,0«P3*PS3> 

I 1000  U*C3*SORT(1.0*(6.0»»S3>/<7.0»P3>> 

1 1 093  T0*W»»0*  3333/(2.2399*0.  I886»PS3> 

I 1100  G6T3(2?0.225).L3C 
1 IHO  220  TC»3.0«S/U 
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PROGRAM  STS£AI>.  (CONTINUED) 


J 1 120  PC*PS3«<  t - TC/T0)«EXPC-TC/T0>*P03«C  I - TC/  T01*«2*EXP< -2«  --C/TO> 

11130  CD* 1.0 

1 1 MO  RETURN 

111  SO  225  TAsELEN/.J 

11160  7A2- TA/2.0 

11170  TA2TO*J\2',  ro 

1 1 iflO  PA*PSO«<  1-TA2T0>*EXPI-TA2T0>*CD*P09«<  1 *T<.2T0>««?*EXP<-  2*TA2T0> 

11190  RETURN 

12000C 

120 IOC  CALCULATE  L3A0 
12030  300  <WT0(3O5»  3101.L7C 
12040  305  TT'  *TME/T0 
12050  IFITME.  OT.  TOR1TO  320 
12060  P*PC*<TC-Tl 1E1«CPR-PC>/TC 
12070  RETURN 

1 20B0  310  TT0*<TM£-TA21/T0 
12090  IFCTIME.  GT.TA)  (WT0  320 
12100  P*PA«TME/TA 
12110  RETURN 

12120  320  IFCTTO.GE.l  .Q1G3T0  330 

12130  P*PS0«< l-TTO>*EXP<-TTO)*CD*PD0*t 1-TTO>«*2*EXP(-2«TTO> 

12150  RETURN 
12160  330  P*0 
12170  RETURN 
13000C 

1 301 OC  PRINT  L3AD  OATA 

130L0  4 IFMtNC.EO.O>G3T0  400 

13030  PRINT  640.LDTYPE 

13040  G0T0  410 

13050  400  PRINT  64S.L0TYPE 

13060  410  CONTINUE 

13070  41  5 G0T0C42O.  425J.L3C 

13050  420  PRINT  650 

13090  <WTO  430 

13100  4P5  PRINT  655 

13110  430  PRINT  660.N.P3.C3 

13120  I F<K  R AN O.NE. 01  RETURN 

13130  G0T0X435.  440). L3C 

13140  435  PRINT  665.S.TC.PR 

13150  GOTO  445 

13160  440  PRINT  670.XLEN.TA.PA 
13170  445  PRINT  675.  I).  TO.  CO.  PS3.  POO 
13180  RETURN 
13S00C 

1 35! OC  L9A0  TYPE  S --  ARBITRARY  L3A0  SHAPE 
13520  700  Q3T0I  710.  720.  730.  7401.  I ENTRY 
13530C 

13540C  INPUT  LOAD  DATA 
13550  710  PRINT  750 

13560  REAO.NPOINT.  <TT<  1.  I ) . PP<  J.  1 ).  J*I*NPJINT> 

13570  FACTOR*  1-0 

13580  IF(<INC.EQ*0)OOT3  718 

13590  PMAX*PP< 1. 1) 

13600  00  715  J*2.NP0INT 

13610  715  IFIPPIJ.  1>.GT.PMAX)PMAX*PP(  I.  1 > 

13620  718  PX*PP<2.  1)-PP<  1.  1 1 
13630  TX*TT<2.  I l-TTU.  1 1 
13640  11*1 
13650  RETURN 
1 3660C 

13670C  CALCU.ATE  4 AX  MUM  LIAO 
13680  720  FACT1R=PR'°4AX 
13690  GOTO  718 
13700  RETURN 
I3710C 

13720C  CALCULATE  L3A0 

13730  730  IF{  TINE.LE.  TTC  1 1»  1 » 1 1 » RJT3  735 
13740  I.J*JJ*t 

137SC  PX*PP<  )J»t.  (>-PP<  l».l> 

53760  TX«TT<  J 1*1.  !>-TT<  I 11 
13765  IF<TX.E0.0»TX*1E-10 
13770  GOTO  730 

1378  0 735  P*FACT8R*(PP<  II.  1 !*•'  TME-TT<  II.  I >)»»'(TO 
13790  RETURN 
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PROGRAM  STBEAM  (CONTINUED) 


30C 

. J4I0C  PR!  4T  L 3AD  DATA 

138IS  740  J.  I >fP^il'4r  640.LJT YPE 

13820  IFC-CI4C.E3.0>PR!4r  64S.L0TY°E 

1342s  privt  770 

1 3-130  03  715  I=l»40)I4r 
13440  PsPACr3«*PPC  I.  | > 

1 34 SO  743  4RI4r  795.  TTC  I.  I >.P 
13460  returh 
1 4000C. 

14070  640  FSlR4Ar(/*LJA0  CAJS146  I4C!pI-;41  FAILURE  iS  AS  F3LL3*'t*» 
14071*  /»3'<»*L.7AO  TYPF  4M8ER«»I2> 

14040  646  FlR44TC/«PRlB£RriES  3F  LOAD  ACri4G  34  WALL  ARE  A«  F8LL3WS:*. 


TA  **»F6.3.«  SEC 


TO  = *»F6.3»«  SEC 
P03  3«»F7.3,«  PSt*> 


14041*  /»5E»«LJA0  ryP£  4'I48E«*»I2> 

14090  660  FARM  ATC8 1.  * C F 434  T FACE)*) 

14100  665  FJR4ATCSX.«CS10E  OR  TOP  FACE)*) 

14110  660  F3R44TC  I OX. * W = «.F8.I.«  XT  P3  = *»F6.2»*  PS1  C.1  = *. 

14111*  F7.|»«  EPS*  3 

14120  665  F3R4ATC 10X.  «S  ■j«»F6.I.*  FT  TC  = *.F6.3»*  SEC  PR  3*. 

14121*  F7.3»«  PS!«) 

14130  670  F3R4ATC 10X. *L  s*.F6.1.«  FT  TA  **»F6.3.«  SEC  PA  **» 

14131*  F7.3»*  PSI«) 

14140  675  F7R4ATC  10X»«‘J  = «.F7.  |»«  FPS  TO  = *»F6.3»«  SEC  CD  =*» 

14141*  F5.  l./.8X»«PS3  3«»F7.3»*  PSI  POO  3*»F7.3,«  PSt«> 

14160  740  F3R4ATt/«14PUT  4IJ4BER  3F  LOAD  P3I4TS  440  THE  TI4E  440  * 
14151*  «PRESSURE  at  EACH  P3!4T*> 

14160  790  F0R4AT</10’<»«TIHE  PRESSURE*) 

141  70  795  F0R44TCFIS.3.F12.2) 

I 5000C 

15002CI  SLAB  REACT! 34  ORTA 
15010  500  R3T3C  51 0.530.  540.  560)*  IE4TRY 
15020  S10  RETUR4 
I 508  SC 

I 5090  530  ST3P 
1 509  5C 

15100  540  P«0.0 
1 5110  03  5S5  J3 1 . 4SLA8S 
15115  546  ;J3I40EXCJ) 

15120  550  IFCTI4E.LE.TTC  J 1*1.  I)>G7T3  556 
15125  I40EXC  l)3!40EXC  J)*l  * JJ3I40K<<  I) 

15130  IFC  l!.LT.4P3I4T><V3T3  552 
1 SI  32  PRI4T  690.TI4E 
15133  STOP 

1 513S  55°  8RCJ)»CREACt  J J*l.  I ) - RE  ACC  1 1,  J > >/ C TTt  J j*  1 , 3 )-TTC  !!»  !)> 

1 5140  BP-.CPP'  JJ»1»  J)-PPC  JJ.  J))/CTTC  Jl*l*  D-TTC  ) ),  J>> 

I 51  SO  G3T1  550 

15160  55S  P*P*REACtJ1.  !)♦  t TIHE-TTt  J J.  J))*RRC  3) 

1 SI  65  P=P*OAREA*CPPC  J 1.  I ) » C TI  4E-T1  C J J,  J > ) *8?  > 

151 70  RETUR4 
1 5180  660  PRI4T  680 
1 5190  03  566  J3  1 . 4SLA3S 
1 5200  565  PRI4T  68S.448EFCJ) 

1 5300  680  F3R8ATC /*8E4H  LOADED  WITH  REACT  1 34S  FR34  FILECS>t*> 

15310  685  F3RHATI  1 OK#  A 7) 

1 531 5 690  E3RHATC /*E40  3F  FILE  " 9EA4  HAS  43T  FAILED  4T*.F6.3,  • SEC*) 
15320  .RSTUR4 
15330  E40 

20000  SUBR0UT14E  FILLC  P3»  I E4TRV ) 

2001 OCt  C3HPUTES  AVERAGE  AIR  PRESSURE  14  R334  DUE  T3  BLAST  WAVE 
20020C1  I4CI0E4T  HEAO-34  UP84  FR34T  WALL. 

20030C 

20050  C34434  X 1 4C.L0TYPE.  XRE.X  RA40.  TI  4E»  1 !.YC 10O>,  3T.TJ.YU.  YFAIL. 
20062*  ELR.  49.  BFLG.  rFLO.  Tw.  FUYS.  ! CASE.XPL4TE.XC34P.  HP.  BP.  ES» 

20054*  HPC.HS.FPC.FOC.EC.  BS.FOYR.  AS.  0.  APS.  OP.  OAREA.  PAREA.  E4ASS. 

20055*  *<LH.  VLl.VLP.HSLAB^.RAHEFCRl.HL.IAO.  30LSLAB, 

pOOSS*  W.  P3.  C1.L3C.  S.  EL  :*4.  CO.  PS3.  0 03.  PR.  PERT.  PC.  TC.  TO.  DELAY. 

20057*  TTC80.  2)  . PPC80.  ?).  REACC80.  2>.  1 40EK  C 2).  ARC  2)  . 

20058*  4WI4.RH33.  V3.L1.  AAC8.  2) , 44 C 8 > . AFR34T. 4S1  DE.  0.  G2.  G3.  G4.PP2.  OT 

20090  L3C.ICAL  L1.L2.L3 
2009 5C 

20100  G3T3C10. 13.11). IE4TRY 
20110  10  RETUR4 
2031  OC 

20320  13  P33*P3 


20054* 

20055* 

s-OOSS* 

20057* 

20058* 
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PROGRAM  STBEAM  (CONTINUED) 


20330  TT*0.«  T3*0. 

20340  RH033* RH33 

203S0  L2*. FALSE.  S L3*. FALSE. 

20360  RETURN 
20370C 

20380  II  IF<LI>G7T3  52 
203R5  IFCL2.A.L3M33TO  9 
20390  52  0OT*<TI8E-T3)«O.S 
20395  tsrap*2 

20400  53  I F<  OOT.LT.  0T>  03 TO  51 

20410  50  DDT*0.S*0DT 

20415  I ST3P*2«  I ST3P 

20420  G3  TO  53 

20430  51  C3NTINIJE 

20  440  0-3  99  I * I . I STOP 

20450  TT*T0*I«OOT 

20460  IF<TT«GT.TO>GO  T3  99 

2047C  05*0.  t W4*0.  S IwU 

20450  00  SOO  <»1»NWIN 

2 0 490  *4* NN  (4  > S 0Lr*AA<4 . 2>*0.  UOOOOI 

20500  IF<0LT*GE.TT)O3  T3  SOO 

20510  G0T3OS.  16.  161.5 

20520  15  CDF* I .0 

20530  l F<  TT-TC)  20.  20.  21 

20540  20  PI  1 *< TC~TT> * < PR- PCI/ TC*PC 

20550  PI 1*PI 1*P9 

20560  GO  TO  30 

20570  16  C0F*-0.4 

20600  21  R*TT/TO  S RR*1.-R 

20610  PO«PO0*RR«RR*EXP<-2.*R1 

20620  PS*PS0*RR*EXP«-R1 

20630  PI 1*PS»COF«PO 

20640  PI I*P1 I *P3 

20650  30  RH0I*RH33«<<PI  1/P5>«'--G21 
20660  IF<PH-P33)36.36.  37 
20670  36  JS10N*-I 
20650  L2*.TRUE. 

20770  303  P2»P|1 

2 0 750  RM32=<(P2/P33>«*G2)*RH333 

20  790  X*P33/RH333 

20500  GO  T3  35 

20810  37  JSl  174* ♦ 1 

20520  306  P2*PP2*P1 1 

20830  RH02*<(P2/P1  1 >«*G21*RH3| 

20540  X*P1  1/RH31 

20550  38  M22*G4*(X-P2/RH321*32.«1 44. 

20860  IFCU22140.  39.  39 

20870  40  PRINT.«IJ22  NEGATl  VE*.  U22 

20880  ST3P 

20890  39  'I2*S0RT<(J22>«  JSt  G9 

20900  DD5*U2*RK32*AA{<.  |J*OOT 
20910  05*05*005 
20920  WW*NV*PU*0D5/<G3*RH3t  1 
20925C 

20930  500  CONTI 9'JE 
20940  P30*P38*<  G-'  . >«WU/V3 
20950  RM330*RH330*D5/V3 
20960  99  CONTINUE 
20970  TJ  = TT 
20980  P3*P33-P3 

20982  IFIT15E.GE.TOL3*. TRUE. 

20983  RETURN 

20984  9 R*TI5E*1.0-R 

20955  PO*PD3«RR*RR*EXP<-2.0«R> 

20986  PS*PS3«RR*EXP<-»» 

20987  °3*PS*PD*< AFR0NT-O.  4*ASI0E) 

20990  999  RETURN 

21020  END 

30000  SU3R8UTINE  RESIST  < I ENTRY! 

300100  THIS  SUBROUTINE  0ETER4 I NES  THE  RESISTANCE  FUNCTI3N* 
300200  TRANSF0R5ATI3N  FACT0RS*  ANO  REACTION  COEFFICIENTS!  AND 
30030CI  SUPPLIES  THE  REACTION  VALUES  FOR  SPECIFIC  OEFLECTIVNS 
30040C 

30050  C3553N  4 1 NC.LDTTPE.4RF.  4RAN0.  TINE.  I » 1 1 1 00>  * OT*  OU.  YU.  TFAIL. 
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PROGRAM  STBEAM  (CONTINUED) 


30052*  'I.B,  MB.  BFLG,  TFLG.  TW.  FOrs,  IC4SE»<PL4TE.4C0MP,  H>-.  BP.  ES» 

30054*  HPC.  'IS.  EPC » FOC.  PC.  RS.  FOYH.  AS.  0.  AP«»  OP.  OAP*  4,  P4SP4,  * macc. 
30055*  *-<LM,  VLI.  VL2»NSLABS,N4MEFT2>,'TL  JAD,  ODLSLAB. 

30056*  U.PO.  CO.LOC.  S.  TLEN.  CO.  PSO.  POO.  PR.  PEXT.  PC.  TC.  TO.  DELAY, 

30057*  • • 50.  27.PPTB0.  21.AEACT50.  2>.  I NOEXT  2) . BAT  2) , 

30055*  HHOO.  03. L 1 . A4T  A.  2 > . MM  T A > . 4FR3MT,  AS!  DE.  0.  G2.  03,  P.A.PP2.  OT 

30100  AEAl  A.  ISTPEL.ICC.  ICS,  I AV-;.-<<1.66H.<SI.5S2 
30120  G.)  TO  T 4,  500.  45)  , I EN TRY 
301 30C 

301 40C  - ENTRY  It  IMPUT  BEAM  DATA  « 

30150  4 PRINT  61 5 

30160  READ.  *LB.HB»  3FL  G.TFL  G.  TW,  F0T5,  IC4SE.-TPL4TE.-TC3MP 

30165  *LEN**LB/I2.0 

30170  ICASE4=ICASE-4 

301  AO  ES*29£6 

30185  BP=0  $ HP=0 

30190  IFT4PLATE.EO.O>G0T3  It 

30200  PAINT  616 

30210  APAO.BP.AP 

30220  It  IFCEC3MP.P  J.07G3T1  13 

30230  PAINT  615 

30240  SEA9.53P.HS.FPC 

30250  F0C*1.2S«FPC 

30260  EC=57619.0*SDRTTFPC)  S EC< I P* EC/ 1000. 0 
30270  N*ES/EC 

30280C  « EFFECTIVE  WIDTH  OF  CONCRETE  • 

30290  9S*'LB/4.0 

30300  IFTBS.GT.BFL3*I  6.0«HS>BS=  BFL  G»  1 6.0*HS 

30310  IFCICASE.E0.5X71T3  13 

30320  PRINT  619 

30330  READ.  FOYA.  AS.  O.APS.  OP 

30340  13  CONTINUE 

30350  OAREA»?LB*BFLG 

30360  PAREA=PAAEA*OAR£A 

30370C 

30380C  * OUTPUT  BEAN  OATA  « 

30390  PAINT  620.  ICASS.  »LB.HB.BFLG»  TFI_G.TW.FDrS 

30400  IF«PLATE*NE*0)PR1  NT  625.3P.HP 

30410  I FT4COMP.EQ.0)  GOTO  15 

30420  PRINT  630.HBP.HS.  BS.FPC.F0C.EC5IP 

30430  IFdCASE.  GT.5>r*RINT  63S.  AS.  D.  For  A.  APS*  OP 

30440  AS*AS*BS/|2.0  S APS*  APS*  3S/ 1 2- 0 

30450  15  CONTINUE 

30460C 

30470C  * OETERNINE  BEAM  PROPERTIES  INDEPENDENT  3F  FDY  * 

30500  CALL  TRANST I CASE4.  KLM.  EALNSE.  7-TLMFE.  ?<LMP,  \A.  1 S.  W-2S. 

30510*  VLIF.VL2F.VL1P.VL2P> 

30530C  • PROPERTIES  FOR  STEEL  SECTION  • 

30540  AFL  GaflFL  G*TFL  G 

30550  4B*2.0«4FLG*TW*THR-2.0*TFLG> 

30560  AP=HP*BP 
30570  4STEEL*AB»AP 

30575  /NASS*490.0*ASTFEL*ELB/1  725.0 

30550  I A»2«0*<  RFL  G*  TFL  G**3/  1 2. 0*  AFL  0»<  0*  5*  < HB-TFL  G>  > *«2> 

30590*  *TW*TH9*2.0*TFLG>«*3/ 12.0 

30600  YS*O.S*THB*HP>*AP/ASTEEL 
30610  TSS*0.  5*HB*HP-rS 
30620  YTS*0.  5*HB*YS 
30630  H1*HBP*YTS 

30643  I STEEL* I B* A8«YS* YS*BP*Hp*« 3/ 1 2.0* AP«TYBS-0. 5*HP>**2 

306  50  ES*  AFL  G*CHB*TFL  G)  * TW*  C<0.  5*HB-  TFLG>*«?-YS*YS>*AP«(yBS*0.  5*HP> 

30670  I FT4C3MP.  EO.  1 > AFJIIAN 

30680  ZCC*ZS  * 'CSMS 

30490  l COM  STEEL  S ICS*  IS  TEEL 

30700  SETUAN 

3071  OC 

3075CC  « ENTAY  3t  DETERMINE  BEAM  PROPERTIES  DEPENDENT  ON  FOY  • 

30760  45  I FT 4 COMP. NE.  I > G3T3  75 

30770C  • PR3PEATIES  F3R  COMPOSITE  SECTION  • 

30780  ASR* AS*FOYR/FOrS  S A»SA* APS* FOYR/FOrS 
30  790C 

30800C  • NEGATIVE  MOMENT  SECTI3N  • 

30810  I FT  I CASE.  EO.  5>  00  TO  50 

30P.20  YC*T ASR*THS-0>*APSR*THS-OP>»ASTEEL*HI >/T ASR* APSR* ASTEEL > 
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PROGRAM  STBEAM  (CONTINUED) 


30830  1CS*ASR*(YC-HS*0)««2*APSR«(YC-HS*DP)««2»ISTEEL 
30840*  *ASTE£L«(H9P*YTS-YC)*«2 
30850  AST£LP=0.5*(ASTEEL-4SR-APSR> 

30860  ETC=TFLG*(ASTELP-AFLG>/TW 
30870  E*YTS*HBP-MS*0 
30880  EP*YTS*HBP-HS*OP 
30890  EPP*YTS-0.5«TFLG 
30900  EPPP»EPP-0.  S«(TC 

30910  ECS*ASR«E*APSR»EP*2.0*AFLG«EPP»2.0*(ASTELP-AFLG)»EPPP 
30930C 

30940C  * POSITIVE  MOMENT  8ECTI0N  « 

30950C  « ELASTIC  MOMENT  OF  I VERT!  A » 

30960  50  TERM  1 *N«AST£EL/9S 

30970  YC»-TERMl*SQRT(T£RMl«TERMl*2.0*T£RMt»HI ) 

30980  IF(YC.GT.HS)  G0TO  55 
30990C  « NEUTRAL  AXIS  IN  SLAB  * 

31000  ICC>»ISTEEL*AST£EL*<H1-YC)««2*8S«YC**3/(3.0*N) 

31010  G0T3  60 

31020C  « NEUTRAL  AXIS  BEL3W  SLAB  * 

31030  55  YC*(  8S*HS4HS*2. 0«N* ASTEEL*H1  >/(2.Q*(BS*HS*N*ASTEQ.)) 
31040  ICC«ISTEEL*ASTE£L*(H1-YC)«*2*BS*HS»*3/(12.0»N> 

31050*  *BS*HS«(YC-0.S«HS>«*2/N 

31060C  * PLASTIC  SECTION  MODULUS  * 

31070  60  BSU*0.8S*FDC«BS/F0YS 
31090  EC«ASTEEL/BSU 
31100  IF(?C.GT.HS)GOTO  65 
31110  IFdCC.GT.HBPKBTO  62 

31120C  * NEUTRAL  AXIS  IN  SLAB  (A80VE  BEAM  FLANGE)  • 

31130  ECC*ASTEEL*(YTS»HBP-O.S*OC) 

31140  G3T3  75 

311 SOC  « NEUTRAL  AXIS  BEL3W  BEAM  FLANGE  (ENCASED  BEAM)  * 

31160  62  ACU*BSU»HBP 
31170  E*YTS*0.  5«HBP 
31180  GO  73  68 

31190C  • NEUTRAL  AXIS  REL3W  SLAB  « 

31200  65  ACU«BSU*HS 

31210  E=YTS*HBP-0.5«HS 

Ci 1 220  69  ASTELP*0.  S«<  ASTEEL-ACU) 

31230  IF(ASTELD.GT.AFLG)G0T3  70 

31240C  • NEUTRAL  AXIS  IN  BEAM  FLANGE  * 

31250  EC»HBP*ASTELP/BFLG 

31260  ?CC"ACiJ»E»2.0«ASTELP«(yTS-0.  5»('C-HRP)> 

31270  GOTO  75 

31280C  • NEUTRAL  AXIS  IN  BE  1 WEB  « 

31290  70  EC»(ASTELP-AFLG)/TW*PB  *TFLG 
31300  EP*YTS-0.  5*  TFLG 
31310  EPP«EP*0. S«(*C-HRP) 

31320  ECC«ACll«E*2.0*AFLG«EP».  - J*\  ••  , ELP- AFL G> «EPP 

31330  75  CONTINUE 

313S3C 

31360C  • DETERMINE  RESISTANCE  ’ E ((OTAL)  F3R  BEAM  « 

3I370C  • (0  IS  IN  UNITS  3F  LB.  IN  LB/IN.  AND  Y IN  INCHES  ) • 
31  3 7 5 78  CALL  C3EF(  l CASE4.  ASS.  PSS.  AF.  BF.  ICC.  ICS> 

31380  I F<  I CASE.  GT»  S)  GOTO  80 
31390C 

3I400C  CASE  5 

31410  0U*?CC«FDYS/(BSS«'L9) 

31420  MX  1 * ES* l CC/ ( ASS*  EL  8*  * 3 ) 

31430  YU*0U/KM1 

31440  9FAIL*»S«FDYSX<BSS«ELB) 

31450  YFAIL»26. 4«9FAIL/(ES»: STEEL/ <ASS»ELB«»3)> 

31460  GOTO  100 
3I470C 

31480C  CASES  6 AND  7 

31490  8 0 01»ECS«FDYS/(BF«?LB> 

31500  I AVG*  0.5*  (ICC*  ICS) 

31510  MM1»ES«ICS/(AF«/LB**3) 

31520  Y1»01/<M1 

31530  I F(  I CASE.  E9»  7)  GOTO  8 5 

31540  0U»F0YS«(?CC*»CS>/(8SS«ELB) 

31  550  0FA1L»2.0*FDYS*?S/(BSS«ELB) 

31555  9S1«FDYS»*S«12.0/?LB 

31556  MSl«ES»ISTEEL»384.0/?LB*«3 
31560  GOTO  90 
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PROGRAM  STBEAM  (CONTINUED) 


1IS70  AS  O'JaFOYSa < *CC*0.  5*  *CS>/<  BSS*/L8> 

31  SRO  3FAtLa|.5*F0YS*'S/<  BSS*-:LB> 

31S87  0SI=F>JYS*8.0/'L0 
3 ISA  6 <Sl  = ES*ISTEEL*!B7.n//L8««3 
3IS90  90  <A2aSS*IAVG/<ASS*IL8**J) 

31630  yj=yi*< ou-on/-<<2 

31630  YS1*3S1/8S1 

3 I 640  <S2=€S«!ST£El./<ASS«:!LA»*3> 

31660  YS'3«YS1*<0FAIL-QSI  J/XS2 

31670  YrAIL-8*.4*<YSI*YSU«<|.0-eSl/eFAlL»> 

3I680C 

3 1 6900  « AOJ'JST  RESISTANCE  CU»VE  FOR  SLAB  DEAD  L3AD  * 

31730  100  OOLa3ULSLAR*490.0*ASrEEL*/LO/|  728.0 
31  730  YDL  = OOL/'-<t 

31740  IFCARANO.NE.l  1PRINT  633.00L.YDL 
317S0  Y1=Y1-Y0LS  Y‘1*YU-Y0LS  YFAIL  = YFAIL-YOL 
31760  QI*OI-OOLS  OUaOU-OOL  S OFAILaRFAIL-.-OL 
31 770C 

317R0C  * 3L'PUT  RESISTANCE  CURVE  « 

3 1 790  IFCKRAND.EO.  1 > GOTA  33S 
3 I BOO  PRINT  6S0 
31 A I 0 IFdCASE.SO.s)  03T3  320 
3 1 820  PRINT  660.31. Yl 

31830  320  PRINT  663.  TJ.  YU.  3FAIL.  YFAIL 
31840  337  CONTINUE 
318S0  RETURN 
3IA60C 

3 1 8 TOC  * ENTRY  2t  DETERMINE  THE  RESISTANCE  I T3  TAL  > 3F  THE  BEAM 
318A0C  AS  A FJNCTI  IN  IF  Yd)  * 

3IA90C 

31900  SOO  IF<YU».8T.  YFAIL103T3  S60 
31910  !F<YU).GT.YU>G31J  S40 
31920  IF(ICASE.GT.S)!nT1  520 
31930C 

31940C  * ELASTIC  RANGE  - CASF  S « 

31950  {<L1aE<LMSE 

31960  VL1  = VL1S  S VL2*  VL2C 

31970  QT=Yd)«A<l 

319A0  RETURN 

31990C 

32000  S20  IFire  I J.GT.YI1G3T3  530 
3201 OC 

32020C  « ELASTIC  RANGE  - CASES  6 t 7 « 

32030  *<LM='<LMFE 

32040  UL1=3_  IF  S VL2  = VL2S 

32OS0  3T-Y1 1 >«<•<  I 

32060  RETURN 

32070C 

320A0C  « ELAST3-PLASTIC  RANGE  * CASES  6 X 7 • 

32090  530  /<LM=T<LMSE 
32100  VLlsVLIS  S \A.2  = VL2" 

3?iio  or*oi*«2*ird  >-yi  > 

32120  RETURN 
32I30C 

321 40C  « PLASTIC  RANGE  - ALL  CASES  • 

32150  540  EKLNa^ALMP 
32i60  VL1  *NL  1 P S VL2*W.2P 

321  70  OT*OU*<Yd  >-YU>*t0KAP.-01l)/tYFAH.-yi> 

32180  RETURN 
321  ROC 

32200C  « BEAM  C3LLAPSE0  (SCT  RESISTANCE  T)  SMALL  VALUE)  • 

32210  560  0T= 1 E*  I 0 
32220  RETURN 
32230C 

32240  615  F3RMAT(/«INpi)T  LB.  MB,  BF.  TF»  T W.  FDY  s.  I CASE.  <PL  ATr,  XC3MP*  > 

32250  616  F3RMAT* /•INPUT  9P  i HP  CF3R  B3TTJM  C3V.ER  PLATE)*.  »> 

32260  618  F0RMAT<4*INPUT  MRP.HS.F’C  C F JR  C3MP3SITE  BEAM)*..) 

32270  619  F3R4AT<4*INP'JT  FOTR  * AS.  0.  APS.  OP  AT  BEAM  SUPPORT*.  ») 

32280  620  F3RNAT<//«PR3PEHT!€S  JF  STEEL  SUPP3RT  BEAM  --  SUPP3RT  TYPE  NJ.*. 
32270*  12./.*  I.B  a«,F6.  1.*  tN.*»5X.*HR  >*.F6.2.*  IN.*.6X.*RF  a*. 

32300  F7.3.«  IN.*./.*  TF  a*. Fa. 3.*  IN.*.  SX»  *TW  =•»  F6.3.  « IN.*.4X. 

32310*  *F0YS  *•»  F8  • I . « »SI*> 

32320  627  F3RMATI/*  BP  a«,F6.2.«  IN.*»SX»*MP  a*,F6.3.*  IN.*> 

32330  630  FORMAT*/*  ‘1  iP  a«,F6.2»*  IN.*.SX»*HS  a».F6.2.«  1N.4.4X. 
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PROGRAM  STBEAM  (CONTJNUED) 


32340*  « PS  3"»F6.2»«  lN.«./»«  F *C  = *»F7.|»*  esi  FuC  =«» 

33340*  F7.l»«  PSI«»4X»«EC  »*.F7.t»«  XSl*> 

32360  63  S F3RMAT</«  AS  =*,f7.«,«  SO  t N.  / PT«»  6X»  *D  = *.F7.3.»  IN.*. 

32370*  4X»*F0YR  = *»F8.|,«  PS!*»/»«  A’S  = «»F7.4»*  SO  I N.  /F  T*»  ‘-X. 

323X0*  «!)•  K.F7.3.*  IN.«> 

32390  633  F3RMAT(/«00L  3«»FIO.'->»«  L8  YIX.  = *.F8.4»»  IX. «» 

32400  640  FJ8MAr<//*L1Af)-1EFLE0n  IN  CURVE*./.  4X»  «7T  <L«>  Y <IN.)*> 

32410  440  FORMAT*  F I 2. 2.  PI  2. 4) 

32420  END 

40000  *UHR1UTINE  C 1EF  < I CAS-;4.  ASS.  ASS.  AF.  RF»  I CEN.  I S’JP> 

400  IOC 

* )020C  THIS  SlJARlUTINE  DETERMINES  OEFLECTIJN  AXO  M'.M-XT  oiccfi  Cl  EN  TS 

40030C  fir  tee  reams  with  variarle  miment  if  inertia 

40040C 

40040  REAL  ICEX.  I SUP 

40060C:  CASE  4.  JNE-V.AY  SIMPLY  SUPPORTED  WALL 

400 ’0  ASC«5. 0/384.0 

40080  RSS30. I 25 

40090  RI= ; SUP/ ICEX 

40100  O0TK27O.  40.  70).  ICASE4 

401  IOC 

40I20C1  CASE  6.  TNE-WAY  FI  .£0  EXD  WALL 
40130  60  8F=<. 00953*. 032l3«RD/f. 211*. 2A9«RI) 

401 40  AF=. 001 32* .01  I 69*RI-9F«< .0223*. 1023*RI ) 

40150  RETURN 
401 60C 

40IT0C1  CASE  7.  ONE-WAY  PROPPED  CANTILEVER  hALL 
40180  70  RF-s<  .0109*. 030^«RI  )/*.  1924*.  1 40  7»PI  > 

40190  AF*-« 00439- . 00342* °I *°F« * .08333* .02033'RI I 
40200  270  RETURN 
40210  END 

50000  SIRR.1UTINE  T»AX>  < I CASE4.  'XLM.  TXLMSE.  »XLMF*.  *XLMP,  VL  I S.  VL2S. 

50010*  VLIF.VL2F.VLIP.VL2P) 

50020C 

50030C  THI*  eilRROUTINE  DETERMINES  TRANSE3RMATI3N  FACTIRS  AND 
50040C  OYNAMIC  REACTION  C3EFFICIENTS  F3R  INC- WAY  REAMS 
50050C 

50060C  ALL  CASES 
50070  -XLMSE=>0.  78 
50080  ;xLMP*C.6t> 

50090  VL  I S=0.  1 0 7 

S0100  VL2S  = 0.  393 

50110  VLIP-O.  125 

50120  \A_2Pa0.375 

50130  oaTOOOO. 310.320). ICASE4 

50140C 

50150C  CASE  5 
50140  300  *XLM.*XLMSE 
501  70  VL1=VL1S 
50180  VL2=VL2* 

50190  RETURN 
S0200C 

5021 OC  CASE  6 
50220  310  'XLNFR.O.  77 
50230  VL1F.0.136 
50240  VL2F*0*  364 
50250  cere  330 
50260C 

502 70C  CASE  7 
50230  320  *XLMF£=0.  73 
50290  VL1F.0.1  65 
50300  VL2F=0.459 
40310  330  'XLM.'XLMFE 
50320  VA.1  = VA.1F 
40330  VL2  = VL2F 
50340  RETURN 
50350  END 

70000  8IIRR31IT!  NE  R4N0IM  C I ENTRY) 

700 1 OC  THIS  S"RR3'JTINE  INPUTS  MEAN  AND  STANDARD  DEVI'TIJNS  FIR  RANDOM 
70020C  VARI  ARLES!  GENERATE*  RANDOM  VALUES!  AND  C3N1R3LS  REOUlREO 
70030C  N'MAER  3F  CASES  T3  RE  R'N!  AND  OUTPUTS  FINAL  wES'i-TS  AND  SUMMARY 
70040C 

70050  C3MMIN  XINC.LOTYPE.XRF.XRANO.TIME.  l.Yf  1 00)  .0T»  0‘J.  YO.  YFAIL. 

70052*  *L3.H9.  RFLG.  TFLG.  TK.  FOYS.  I CASE.  X PL  ATE.  XC.1MP,  HP.  AP.  ES. 
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PROGRAM  STBEAM  (CONTINUED) 


70054* 

70057*’ 

70056*’ 

70067* 

70055* 

70050 

70000 

701 OOC 

701  IOC 

70120 

7oi  on 

701  40 

701 50C 

701  60 

701  70 

701 OOC 

70100 

70200 

70210 

70220 

70230 

70240 

70250 

70260C 

70270C 

70275 

70280 

70290 

7041  OC 

70420 

70430 

70432 

70440 

70445 

70450 

70452 

70454 

70456 

70458 

70459 
70460C 
70470C 
705  70 
70550 
7058  1 
70  58? 
7058  3 
73584 
7055  5 
70590 
70600 
70610 
70620 
70630C 
70640 
70650 
70660C 
70670C 
70  730 
70  732 
70  734 
70736 
70  738 
70  739 
70740 
70  7500 
70  760C 
70770 
70  780 
70  700 
70800 
708100 
708  20 
70830C 


HPC.  HS»  PpC,  FOC.  SC.  US.  F0Yo.  AS.  l>»  APC»  DP.  1ARPA.  »ARPA,  MASS. 

ML  8.  VLI  » VL?.  NSLAAc,  NA8EF<2>..«.340»  30LSLA5, 

C3»l)C.s»xlE'I.cu»ps3»po3.pr»pext.pc.t(:.  to.  delay. 
TT(«O»?>*pP(80»2>»  PPACCAO.  ?>.  I NDE<<2>»  3.8(23. 

\1WIN»  RH  33,  V3.L  I . AA(S»2>.  NN<  8 > . APS  3 4 T.  AS  I OS.  0.  G2*  G3»  G4»  PP?»  l)T 
08438  /RANO/  TMEC 
DI8ENSI  JN  CHI25C  7).  CHI 9 75<  7> , TO!  ST(  7> 

VALUES  FOR  97.  5!  < fs  19.24.  27.34.  39.  44.  49> 

DATA  CHI  25/  * ^688.  .5167.  . 5533.  . 5823.  . 6065.  .6267.  .6440/ 

OATA  CHI  4 75/  1 . 729  5.  1 . 6402.  1. 5 766,  1 . 528  4.  1 .4933.  1 • 4591. 1 . 4331/ 
OATA  TOI  *T/?.09  3.  2.064.  2.045.9.  03?,?.  02?.  4.01  6.  2.010/ 

G3T3<5.  50.  703.  IENTRY 
5 X0'J88YaXN3R81(-1. 0.0.0.  !.0> 

INITIALISE  888038  N'J8B£.R  GENERATOR 
P818T./,«I8P’IT  8»A80«. 

•45)80,88880 

03  47  1 = 1,88880 

X 0*J88V  = 883881(0.0, 0.0.  1.0) 

47  C38TI  8.i£ 

INOEXOS  8PS3=0i  Sr?87=0 

I CMEC8»20 

I8P'IT  8EAN  A80  STANDARD  DEVIATION  F38  8A7038  VARIABLES 
IF(L3C.E0.2)G3T3  30 
PRINT  87 
READ.  S^EAN.  SSO 

STEEL  ( N3N-C38P3SI TE  AND  C38P3SI TE>  SIJPP38T  8EA8S 
30  P8I  NT  86 

READ,  F0YS8EN.  FDYSS3 
IF(8C38P.EQ.1.AN0.ICASE.  OT.S3G3T.)  40 
1FCL3C.E0.1 3PR18T  96 
IML3C.8E.I  3PRI8T  95 
RETURN 

40  PRINT  58 

READ. F0YR3SN. EOY8SO 
I F(L  )C«  SO.  I >P8I  NT  97 
IFCLJC.NE.I  ) PRl NT  98 
RETURN 

GENERATE  RANT  J 8 VALUE* 

50  E0YS9<N3=8I (0.0. E0YR8E8. F DYS.SO) 

IF(F0YS.LE.0)«1T-)  50 
I E(XC18P.8E.  1 . 18.  ICA8E.E3.  53C.3T3  58 
55  eoyR=xN  3 881  (0.0. E0YR8E8. EOYRSO) 

IF<F0YR.LE.O.A8D.«i)YR8E9.8E.O)  G3T3  55 
58  CONTINUE 

IF(L.)C.F3.?.  )R.S8»:AN.  EO.O>r.)T3  65 
60  S»XN1R8| <0.0.  58EAN.  SSO) 
l*<S.Le.O>(V>T)  *0 
65  I NOE<= INDEX* 1 
RETURN 

S')8  VALUE?  A F PS3  ANO  P S3  * * 2 F 38  USE  IN  STATISTICAL  ANALYSIS 
70  spsi  = SPS3*PS3 

SSPS3  = SSPS3*PS3«PSi 

OUTPUT  PINAL  RES'ILT* 

76  IF<XC38P.P0. 1 • ANO.  I CAS*;.  r.T.5)  03T3  75 
I P<L  3C.E0. 1 3PRI  NT  9 2.  FOYS.S.PSJ.  T18EC 
I FCL3C.  NE.  I 3PRINT  90.  F0YS.PS3.TMEC 
03  T 3 80 

78  I FCL  3C.  EO.  I )PRI  NT  9 3.  FOYS»  EOYR,  c.  “S3,  TI  8-)C 
I P(L3C.  NE.  I > PRINT  4 4,  FDYS.COYR.  »').TI»-:r 
80  I p<  I NOEX.LT*  I CHECH  ) RETURN 

0ETER8INP  8 PAN.  8 rANOARt)  DEVIATION.  ANO  STANDARD  ERR  38  FIR  PS«7 
<83=1 NOEX 
ME5N  = SPS3//N  1 

SD=SORTC  < SSPS3-  J*  N3*  MEAN*  MFAN)  /*  N 1> 

STOERRaSO/I  SO»T<  7N3- I ) ) 

CHECH  IF  RAX  I 8. 18  OF  50  ?S3  SA8ALF.S  3BTAINE0 
I P«  INOEX.EO.  50)  G3TJ  62 

L 1EC8  IF  4-><  ON-'IuENCE  INTERVAL  F3 8 8SAN  “S3  VALUE  IS 
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PROGRAM  STBEAM  (CONCLUDED) 


70-*4") 
7JXS0C 
70*400 
70-J  70 C 
7n*sor 
70-i  )") 
7.VJI1(‘ 
7 W 1 0 
7 W **V 
70»V)«* 
7<>9a  ) 

7 WV)C 
MHOr 
707  70  C 
707 SOC 
70770# 


ifc^tderutoi  <:r<  < ( j j\<- 1 -3)/5)/'^-:am.  or.o.  n>  r,u ) 4i 

(MjriO^C*  19XMVAL  IS  WITHIN  10?  --  i)‘vT-:R'1!  NJ-:  *PPMLMIT  7P 
9Si  CJ'JFIJ-I'JCt  H|£*V4L  MX  ^fAMOARO  »)-:v!Ari)9 
p^oaailixy  vai.hp  am**  i xs  90*5  c i 9 n o=* 'i o'  mp^val  'ipp-'x  lmit 
*>’  S0.|sSi)/(  SARr<CH  [p*>(  ( M'KX-lb>/*»>>  ) 

C9-C«  I-'  44XH*H  5K  SO  SAM»LCC  ^rAH?) 

ip ( 1 7 )-:<•-:>•  •> nnin  so 

o*-:?  ir  'iw^*-:^  7?  bt  cun,)*Nc*  hr?^.  - )-  :i-*9>a«*» 

o-’/nrm  i * mhh  «#io«4vam  i#  rn*  sta^oaro  u*wnri  u 

ip< ( < so1 1- *•)>/'  <kam> • or.o.  io> r.ir ) m 

9*>4  CHPiOf^G’  I MT^AVAL  IS  HI  9 10?  K JR  -Oh  -1-A9  Ar.  90? 
AR)9AAn.I1Y  VAL  J*  --  «*JFP I C I fNT  S**1PL£S  l^TAl  iv) 

?*5v  l-hfi  o*:9i>:  mpcrvv-s  rax  *.***•  sta^oako  9Kvt4xta9 

A90  10  4 A>J0  90  4 PRHA41LI  Tf  VM.*.KS 
ij  H!v<wL**i-:A9-sT0**R*  r»>isrc  c m-kx-i  •>>/:>> 
y^-A^os  '*-:4^$row*  roisrc  < i *•>:<- i s>/^> 

<.*)LsSO/r  «5*)RTCCHI9  7S<  U 90S<-  IS>/S>  >> 

PI  03  | •P*p«SD 

p 1 OL  = '^-:a9-  1 . LM  p*  SOU 
p 1 j js  •*»  .;a>i-  i ,*-m 

f'J  J-S  :X\49«-  1 • <M2»Si) 

P 9QL=' l£A9*  1 • £ A 2 « S f>„ 

»90=>M£A9*I  ,oqo«<:o 
°70!J- ^V1C!AX*  1 • 24  2«5*>0 
»9.0HS  * 4 F 4 9 + 1 • 9*P«  «0'» 

i»ir»  it  siati  «rii*4L  pawa*- r- >*■*  i i =: 7 t mllap*- 

u i jo#'*-:a9»  :4-.49l#'*v49  i#s  j#  sol#  s > j#  pio*  ~iou#pi  ^ 1. 

P90#  »90L#  P90:J 
P9I0T  IQS.  I 90*<#  STU\4= 

' '7  > <99  9 

*-3*  I'.JMFl  f)\90£  in^vAL  19  MJr  %IH19  10  4 PI-  91  t-  «*'  »9  A9>  91 
V ;L  »•  S --  T-KRSMR*  1*74!  9 s 400! 71)441 

M tCM-;C<»  104-C<'*-> 

*FA  1^9 


Xc.  FJXXAfl/^;  9P  JX  A9  ) yiA^oaVo  .)'  {^11  W - »9  - 

A / * 1 **»AT < ^ * 1 OP  IT  **',A'*  A9I)  <TA90AX0  O^VIAXIH  *>  '*>  «*•») 

?niAr</*t^  »t  ^ - an  a>j»i  -'roxoA-.^  j£vi\:;w  ri^  firw*, 

9«)  h )^4AT(  ?1  >.  «»•  ?\  A*  7) 

4>  ? W4Ar<-9«  | #F|  | .^»*  # I 0.  P#  - | 4.  3) 

n "j'^xArc  '*■>.  i # “ii . «“io.2#  pi  4*  o) 

9«  IP4Ar<  >♦  I > *!'*•.?»  K1  4.  :i  > 

ij  MRP  Ar<///.  «<,  •-  )t  • • 7<  » 'LL  V5*e  |r<9*>!«> 

9 a ^lR^^|<///»  a<»*#'ors«f  <<*•;><;  )«•-«<#  *u)LLAPS%  T 1 

>7  r lw^Ar< ///.  «<I  «r  OYS«,  7<#  •►'oy**#  J<*  *S»#  PS’>*,6X» 

• r j ,\9cc  X!  '-*•  * ) 

>?  C'?j\ A7( ///#  a<*  «fc  )Pc«#7<,»r<)xR*#7<#*Pr^*»Ax#*raL»_AP?- 

1 O ) «•  jR^AX<///#  | | p#^SrAXl  sriJAL  osiprsTI-f 

/✓*  7-9<#*  9 »*  C)\JF10«  Mr*  l.  M I Ts«  • /•  7x • * I r-M«#  M <• 

• VAL  '•  L7^*R  iPJ^R«#//#«  4£AM«»  #*:  »•  .*. 

V|.>.'»,//,»  STA90AP-J  i-vi  AX!  «*»•*#  ^ I *>•  >•  .;#//# 

• i j 4 •>  <0 jaiili  ry  val  i* *.  on^. ^# //• 

« •>;»<  JXJoArfIL  1 TY  VAL  »-«#  jri  v.  >) 

I >*>  *■  1 P^AXC //#  • ^J9«5f9  Ifc  ^A5*.R  sai  I )M$  »•#;*»•/••»<» 

•TTAMOA^  ) r.Xt.)X 


Tl^->> 

PS  , 


99^  sxa^s  *90 

- jcti  i i <o-i' i ■ \*p) 

IFC  10# ^o#  >A 

10  jja  wamf < - 1 • n 
>r»  < 1 SOA9PC  1.  1) 

< »=  »f A 4 W < A.  n 
/iy)9r(  - '•*>•  At. 
«^r-9i?A#'*° 

- 'T  1=9 


PROGRAM  FLAT 


01000  PROGRAM  FLATtlNPUT.OUTPUI) 

01010C1  (HIS  ROUTINL  IS  IHt  CONTROLLING  ROUTINE  FOR  THE  PROGRAM 
01020C1  USED  IN  THE  ANALYSIS  OF  REINFORCED  CONCHETE  FLAT  SLABS 
01030C 

OlOSO  COMMON  KINC.LDTYPE.KRF.KRAND.TIME.I.YOOOl.e.OU.YU.YFAIL. 

01052*  ZLS.M5.FDY.AREA.ZHASG.ZKLM.VS1 .VS2.PS0.PDO.PF.PEXT.PC.TC. TO. 
01054*  P0. DELAY. S 

01060  DIMENSION  AT60 ) *V!SO ). I <80 >» VS *80 > >60 < 80 >»PN!B0 ) 

01070  COMMON  /SHEAR/  ISHEAR. JSHEAR.V*.  .EA3.KEMB 
01080  COMMON  /RAND/  TIMEC 
01 IOOC 

01 1I0C  * READ  TITLE  AND  CONTROL  PARAMETERS  * 

01120  S PRINT  67 
01130  READ  68. TITLE 
01140  PRINT  85 

01150  READ.K1MC.LDTYPE.KRF.KRAND 

01160  DELAY  »0 

01180  CALL  RESIST! 1 ) 

01190  CALL  FORCE! 1 ) 

01200  IF !KKF  «EQ.O)G0T0  14 
01210  CALL  FILLtPINT.l) 

01260  14  IFtKRAND.NE- 1 1G8T0  35 
01270  CALL  F0RCEI4) 

01280  CALL  RANDOM!!) 

01290  34  CALL  HAND0M!2) 

01300  35  CALL  RES!ST!3) 

01 31 OC 

01320CI  MINIMUM.  MAXIMUM.  AND  STARTING  VALUES  ARE  DETERMINED  FOR  CASES 

0I330C1  WHERE  THE  LOAD  CAUSlNu  INCIPIENT  COLLAPSE  IS  TO  BE  FOUND 

01340  13  IF!KINC«EO*0)GOTO  23 

01350  PF*OU 

01360  PFMAX*0 

01370  PFMIN.PF/2.0 

01380  GOTO  20 

01390  16  PF«!PFMlN«PFMAX)/2.0 

01400  20  CALL  F0RCEC2) 

01410  23  1F!KRF.E0.0)G0T0  24 

01420  CALL  FILL!PINT.2> 

0I430C 
014400 


INITIALIZE  VALUES  FOR  BETA  METHOD  lBETAH/6)  AND  COMPUTE  VALUES 


014500  FOR  FIRST  TIME  INTERVAL  ASSUMING  ELEMENT  INITIALLY  AT  REST 

01460  24  1*1 

01470  TlME*0 

0! 480  V ! I >«0  S Y< I )*0 

01490  OELTA«O.OOI 

01495  J5HEAR*0 

01500  IF (KRF «NE« 1 (GOTO  30 

01510  27  tFTTIME.GE.TDELAY-.0000! ))GOTO  30 

.71520  TIME«TIME*OELTA 

01530  CALL  F ILLTPIN1.3) 

01540  GOTO  27 

01640  30  CALL  RESIST <2 > 

01650  A! 1 )*0«0  S VS! 1 >»0 .0 

0160  UIXT1ME 

OK  •' 

l ‘ I 

o. 

01710 
01720 


PROCEDURE  FOR  ALL  SUBSEQUENT  TIME  INTERVALS 
1*1*1 

1FTI.LT.8I IGOTO  II 
PRINT  98. TIME 


01730  98  FflRMAT(/*I«8l I TIME  «*«F6.3.*t  FAILURE  ASSUMED  TO  NOT  OCCUR*) 

01 7 40  GOTO  6 

01750  )i  TIME*TIME*0EL7A 

01760  TT.WIME 

01770  A!I)«A!I-1) 

01775  IF!KRF.NE.O>GOTO  10 

01760  CALL  F0RCEI3) 

01790  PNtl?«PExT 

01800  GOTO  £ 

01830  10  CALL  F ILLTP1N1 .3) 

01890  PNC l )*P INT 

01*10  2 CONTINUE 

31920  DO  8 ,'J*1.10 

01930  Y ! 1 )*YC I - 1 ) *0ELTA*V ! I - 1 )♦ DELTA* DELTA*! At  1-1 )/3 . *A ! I >/6 . ) 

01940  CALL  RESIST (2) 
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PROGRAM  FLAT  (CONTINUED/ 


01 960  4 AN£H»AREA*(PN(11-01/(ZMASS*ZKLM1 
0I9T0  AD£LTAjiAN£H-A(  I 1 

01980  A< ! 1»ANEV 

0198b  IF (ANtH.tO.OSPRINT,«!9B5*»T IME»PN( I 1 »U  . ZPASS  > ZKLP.»  T ( I }»A(  1-1 ) 

01990  IF  (ABSIAOELl  A/  (ANEW  ME-I011.LT.0.0I  1G070  9 

03000  8 CONTINUE 

02010  A(llrANE*-AUELIA/2.0 

02020  PRINT  80.1 <M£.PF .A< 1 ).T< I > 

02030  9 C0N11NUE 

02040  Y(  I1»Y(  1-1  )*t)ELIA4VC  1*1  1»DELIA»0ELTA»{A(I-I  1/3.  .Ad  >/6.  > 

OEObC  V(I1«V(I-I 1-DELTA*(A( I )»A< I-l 11/2.0 

02060  VS( I 1»AHEA»(VS I *PNC I >«VS2*01 

02070  00(1 1«0 

02080  IF ( ISHEAh.EO. 1 .AND. VS  1 11.01 . VSHEAR  1 JSHEAKM 
0208b  !F< JSHEAR.Ee.  1 .AND. PEHb.EO.OH.eT0  7 
02090C 

021060  CHECK  FOR  MAXIMUM  DEFLECT  I AN  0K  FAILURE 

IF  MAXIMUM  DEFLECT  1 0N  REACHED.  HALL  DID  NAT  FAIL 
IF(Y( I l.L£.Y( I-t  )•  AND  .PNC  1 > «LE.PN( I - 1 1 1G0T0  6 
1F(Y( I 1.LT.O1G0TO  6 
IFCYC2 1.OE.YFAIL1O0T0  7 
IF (TINE  OELAY.GE.O.OI01DELTA-0.002 
IF ( I I ME -DE LA Y.GE.O. 02 01 DELTA»0.005 
IF ( T INF-DELAY. GE. 0.1 00 1DELTA-0. 010 
IF ( T IRE-DELAY. GE.O. bOO 1DEL 1 A»O.ObO 
IF  FAILURE  DEFLECTION  REACHED.  ELEMENT  FAILED 
G0T0  1 


021 10CI 
02120 
02130 
02135 
021  40 
02160 
02170 
02180 
02!  900 
02210 
02230C 

022300  INTERVAL  HALVING  PROCEDURE  TO  DETERMINE  LOAD  CAUSING  INCIPIENT 

022400  COLLAPSE  FOR  CASES  WHERE  DESIRED 

022 SOU  I ELEMENT  DID  NOT  FAIL  — SET  PFM1N  TO  PF 

02260  6 CONTINUE 

02280  IF (KINC.EO. 01G0T0  18 

02290  36  PFKIN»PF 

02300  IF (PFMAX.GT .0 1G0T0  16 

02310  PF-2.09PF 

02320  GOTO  20 

023300  ELEMENT  FAILED  --  SET  PFMAX  TO  PF 

02340  7 CONTINUE 

023S0  TIMEOTIME 

02370  IF(K!NC.EQ.01Ge’e  18 

02380  37  PFMAXaPF 

C2390C t CHECK  T8  SEE  IF  LOAU  RANGE  IS  WITHIN  DESIRED  ACCURACY 
02400  17  IF((PFMAX-P/MIN1/PFM1N.6T.0.0I 1G8T0  16 

02410  1F(KRAND.NE.|)G0T8  IT 

02420  CALL  RAN08M(3> 

02430  G8T0  34 

02440C 

024S0C I OUTPUT  DMA  INCLUDES  THE  MAXIMUM  DEFLECTION  AND  TIME  OF 
024600  OCCUHANCE  FOR  A NON-FAILING  ELEMENT  OR  THE  TIPS  AND  VELOCITY 
024700  AT  COLLAPSE  FOR  A FAILING  ELEMENT.  OPTIONAL  OUTPUT  IS  THE 
024800  ENTIRE  BEHAVIOR  TIME-HISTORY. 

02490C 

02S3CCI  OUTPUT  LOAD  DATA 
02510  18  CALL  F8RCE(41 

02S20C 

025300  OUTPUT  FINAL  RESULTS 
0253b  IF( JSHEAR.EO. I .AND.MEMB .EC.O 1G0T8  43 
02540  IF(Y(I1.LT.YFAIL1PRINT  70.Y(I>.T(IT 
OtS'.'.  IF  ( Y(  1 1 .Gi.  YF  AtLIPR  INI  71.T(I1.V(I> 

02560  IF (JSHEAR.EO. 1 1PRINT  96 

02570  GOTO  42 

02577C 

02S7BC  CHECK  T8  SF«.  IF  ENTIRE  TINE-HISTORY  IS  DESIRED 

02579  40  PRINT  97.f(Il.V(Il 

02580  42  PR: HI  72 
02590  READ.M 

02600  ]F(M.£Q.O!GOT0  25 

02680  PRINT  76. (T( J) .PN( J l.A ( J1.V( J>» Y( J> .00* J).VS( J> . J»1 . I) 

02690  25  PRINT  77 
02700  G8T0  5 
027  IOC 

02720  67  FORMAT (/• INPUT  TITLE*. » 1 
02730  68  F8RMAT(AS9> 
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PROGRAM  FLAT  (CONTINUED) 


02740  70  fi  •iHAT</*N0  FAILURE  • RAX  DEFLECT  ION  OF  »»F6*2. 

02 7 SO*  * IN*  REACHED  AT*F7.3.»  SEC*) 

02760  71  f .XA1 !/*FAILURE  OCCURRED  AT*»F7.3»*  SEC  (FINAL  VELOCITY  «*» 
02770*  • IR./SEC)*) 

02700  72  ftt.-'-T  '■•■  S TIME  HISTORY  DESIRED  (YES*1.  N0*0>*.*> 

02830  76  F “■.••*■  TIRE  PRESSURE  ACCELERATION  VELOCITY  * 

02840*  *i  . . f !ENT  UU  VS*./. 

028S0*  <f  '..3.  •‘).3.FI2*  I .F 1 2.2.F  12* 4.F  I0.2.F9.0)) 

02860  77  F0RM/T  <///  .7  ( * •)> 

02870  80  F0RMAK/*ACCELEHAT:0N  NO!  CONVERGING  A]  TIME  **>F6.3. 

02880*  • SEC  (PF  **.F7.3.*  PSI'*/*  A(l>  SET  EOUAL  TO*. 

02890*  F8 • I » • (AVG  OF  LAST  2 ITERATIONS)*/*  Y(!>  ••< 

02900*  F8*4» • IN.*) 

02910  8S  FORPAK/* INPUT  K INC.LD)  YPF..  KRF.KRAND(  I *R4NU0H>«.  * ) 

02930  90  FORMAT (/*ARE  REACTIONS  TO  BE  OUTPUT  TO  FILE  (O*N0. I «YES )*. ' > 
02940  95  FORMAT </*lNPUT  NAME  OF  SLAB  REACTION  DATA  FILE*.*) 

02945  96  FORMAT(/*SHEAH  FAILURE  ••  TENSILE  MEMBRANE  RESISTANCE*. 

02946*  • CONTINUED*) 

02948  97  FORMAT </*SHEAR  FAILURE  AT*»F7.3.*  SEC  (FINAL  VELOCITY  ■*. 
02949*  F7.2*  IN. /SEC)*) 

029S0C 

02960  999  STO.‘ 

02970  END 

10000  SUBROUTINE  F ORCE( I ENTRY > 

10010C  THIS  SUBROUTINE  INPUTS  THE  LOAD  PARAMETERS  AND  DETERMINES 
I0020C  THE  LOAD  AT  A GIVEN  TIME  FOR  THE  FOLLOWING  LOAD  TYPES* 

10030C  1*  IDEALIZED  BLAST  LOAD  (FRONT  OR  SIDE  FACE) 

IOOSO  COMMON  KINC.LDTYPE.KRF.RRAND.TIME. I .T ( 1 00 ).0.0U. YU. YFAIL. 

10052*  ZLS.HS.FDY .AREA.ZMASS.ZKLM.VS! . VS2»PS0.PD0.PR.P.PC.TC*T0. 

10054*  PO. DELAY. S 

10060  DIMENSION  TT (20 > .PP (20 ) 

I0I20C 

10130  IF(LDTYPE iEC.SIGOTO  500 
101  40C 

10150  GOTOC 100.200. 300. 4). 1 ENTRY 
I0I60C 

10170C  • INPUT  LOAD  PARAMETERS  • 

I0I80CI  LOCATION  I.  FRONT  FACE  LOADING  (USED  IN  R0OH-FILLING  PROCEDURE) 
10190  100  M«!000*0  S P0-I4.7  S C8*l 120.0 
10200  IFCKRF.NE.t >GOTO  102 
10210  LOC" 1 

10220  if (KRAND.E8* I )RETURN 
10230  PRIFtT  600 
10240  READ.S 
10250  GOTO  105 

I0260CI  LOCATION  2.  TOP  FACE  LOADING 

10265  102  CD*0  S L0C«2 

10270  ZL£N*ZLS/12.0 

10275  105  IF  (S'  tNC-tO*!  1HETURN 

10280  PRINT  6*0 

10285  READ.PS8 

10290  PR*2.O*PS0*(7.O*P8*4.O*P5e)/(7.O*P0*PS0> 

10295  GOTO  215 
IIOOOC 

IIOIOC  CALCULATE  LOAD  PROPER! IES  F3R  GIVEN  PEAK  PRESSURE 
11030  200  G8T8(205.210).LfC 

It 040  205  PSO*(PR-I4.O*P8*S8RT(I96.O*PO*P0*I96.O*P8*PR*PR*PR))/I6.O 
11050  GOTO  215 
11060  210  PS8«PR 

11070  215  PD8*2.5*PS8*PsO/(7.0*PO*PSO> 

1I08U  U*C8*S0RT(I «0*(6.0*PS0)/(7.0*P0>> 

1 1 090  T0*M**0 . 3333/(2*2399*0 . 1 B86*PS0 ) 

11100  G9T8(220*225).L8C 
II  1 10  220  TC*3.0*S/U 

1 1 120  PC*PS8*(1*TC/T0)*EXP(-TC/T0)*PD#*(I-TC/T0>**2*EXP(-2*TC/T0> 

1 1130  CD* 1 *0 
£1140  RETURN 
’.150  225  TA*ZLEN/U 
1 1 160  TA2-TA/2.0 
:i*70  TA2T0*TA2/ TO 

II ! JO  rA*PC8*(l-TA2TO)*EXP(-IA2TO)»CO*PD#*( I »TA2T0 )**2*EXP(*2*TA2T0 > 

* ! 190  RETURN 
I2000C 

I2C.0C  CALCULATE  LCAO 
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PROGRAM  FLAT  (CONTINUED) 


12030  300  C-0I0<3O5»31O7.L0C 
12040  305  TTO<T  l HE/TO 
12050  IF  (1IHE<GI.TC)G0T0  320 
12060  P<PC<<TC<I IHE7<<PR<PC 7/IC 
12070  RETURN 

12080  310  TTO<<T!HE-IA27/TO 
12090  IF<T1HE<GT<TA7G0T0  320 
12100  P<PA<T!HE/TA 
•2110  RETURN 

12120  320  IF<TT0<GE<I<O  7G07 0 330 

12130  P<PS0<<1<TTO  7<E7P<-I IO7<CD<PD0<<I<TTO7<<2<EXP<<2<TTO7 

12150  RE7URN 

12160  330  P< 0 

12170  RETURN 

I3000C 

I3010C  PRINT  LOAD  SATA 

13020  4 IF <KINC<EQ<O7G0T0  400 

13030  PRINT  640<LDTTPE 

13040  G1T0  4|0 

13050  400  PRINT  64S.LDTYPE 

13060  4t 0 C0NTINUE 

13070  415  G8T0<42O<4251<L0C 

13080  420  PRINT  650 

13090  G0T0  430 

13100  425  PRINT  655 

13110  430  PRINT  66O<R<P0<C8 

13120  IF<KRAND<NE<07RETURN 

13130  G0T8<435<44O7<L0C 

13140  435  PRINT  665<S<TC<PK 

13150  GOTO  445 

13160  440  PRINT  670<ZLEN<7A<PA 
13170  445  PRINT  675<U<TO<CO<PS0<PD0 
13180  RETURN 
I3500C 

1351 OC  C0AD  TYPE  5 --  ARBITRARY  L0AD  SHAPE 
13520  500  G0T0<51O<S2O<53O<54O7<IENTRY 
13530C 

13540C  INPUT  L0AO  DATA 
13550  510  PRINT  680 

13560  KEAO<NP0INT<<TT<J7<PP<J7<J<1<NP0INT7 

13570  FACT0R.1.O 

13583  IP<KIKC<EG<O7G070  518 

13590  PPAX«PP<I 7 

13600  00  515  J«2<NP0INT 

13610  515  IF<PP<J7<GT<PNAX7PHAX<PP<J7 

13620  518  PX<PP<27<PP<I 7 

13630  TX<TT<27<TT<17 

13640  JJ*t 

13650  NET  URN 

13660C 

I3670C  CALCULATE  PAX  7 HUH  L0AD 
13680  520  FAC70R4PR/PNAX 
13690  G8T0  518 
13700  RETURN 
137 1 OC 

I3720C  CALCULATE  L0AO 

13730  530  1F<T7HE<LE<TT<UJ<I 77G0T0  535 

.3740  JJ<JJ<I 

13750  PX<PP<JJ<17<PP<JJ7 

!376v  TX<TT<JJ<17<TT<JJ7 

13765  IF<TX. EG<07TX<1E<10 

13770  G0T0  53U 

13780  535  P<FACT0R<<PP<JJ7<<I1HE<TT <JJ77»PX/TX7 

13790  RETURN 

13B00C 

1 38  I OC  PRINT  L0AO  DATA 

13815  540  IF<KINC<E0<17PR1NT  640.LDTYPE 

13820  IF<KINC<E0<07PRIHT  645.LDTYPE 

13825  PRINT  690 

13830  00  545  JM.NP0INT 

13840  P<FACT0R<PP<J7 

17850  545  PRINT  69S.TT<J7<P 

13860  RETURN 

I4000C 
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PROGRAM  FLAT  (CONTINUED) 


ce  ••» 


14010  600  F OR MAT </• INPUT  S*» « > 

14020  6)0  FORMAT!/ ‘INPUT  PSO*.*> 

14070  640  FORMAT !/»LOAD  CAUSING  INCIPIENT  FAILURE  IS  AS  FOLLOWS)*. 
14071*  /»SX.*LOAC  TYPE  NUNBER**I2> 

14080  645  F»RMPT</«PK0PERI IES  OF  LOAD  ACTING  ON  WALL  ARE  AS  FOLLOWS!** 
14981*  /»5X.*L0AD  TYPE  NUMBER** 12 > 

14060  6 SO  FORMAT! 8X* •! FRONT  FACE)*) 

14100  6SS  FORMAT !5X**!S IDE  OR  TOP  FACE)*) 

14110  660  FORMAT ( IOX**W  *«>F8.1>*  KT  PO  ••*F6*2*«  PS1 
141 ||*  F7.|»*  FPS*1 

14120  66S  FOkMAT(I0X>*S  **.F6.|**  FT 
14121*  F7.3 »•  PSI*> 

14130  670  FORMAT ! IOX**L  ***F6.|*6  FT 
14131*  F7  *3* • PSI*> 

14140  67 S FORMAT!  1 0/>**U  **»F7.|**  FPS 
141 41*  FS*I*/*8X*«PS0  •*.F7-3»*  PS  I 

14150  680  F0RHAT(/»!NPU7  NUMBER  OF  LOAD  POINTS  AND  THE  TIME  AND 
1 41 S I ♦ ‘PRESSURE  AT  EACH  POINT*) 

14160  690  FORMAT  I / I0X**T1ME  PRESSURE*) 

1 41 79  69S  FORMAT !F15«3*F12*2) 

15000  END 

20000  SUBROUTINE  F ILLIP3* IENTRY) 

2001 OC!  COMPUTES  AVERAGE  AIR  PRESSURE  IN  ROOM  DUE  TO  BLAST  WAVE 


TC  **»F6*3»*  SEC 

TA  «**F6.3»*  SEC 

TO  4*>F6*3**  SEC 
PDO  **»F7.3»*  PSI*> 


PR  ■ *. 


PA  ■ •* 


CD  ■•» 


20020C9  INCIDENT  HEAD-ON  UPON  FRONT  WALL- 
20030C 

200S0  COMMON  K INC* LDTYPE*KRF.KRAND» TIME* 1 1 * Y ! 100 ) »B»OU* YU* YFAIL* 
20052*  ZLS.HS.FOY*AREA»ZMASS.ZRLH»VSI*VSB»PSO»PDO»PR»PEXT*PC.TC*TO* 
20054*  PO*OELAY*S 
20080  DIMENSION  AA!8*2)*NN!8> 

20090  LOGICAL  LI *L2*L3 
20095C 

20100  GOTO! 1 0*  I 3* I I >• IENTRY 
20I05C 

20110  10  PRINT  700 
20120  NEAD*NWIN.V3 

20122  RH00*0.076  8 LI ■•FALSE. 

20123  DELAY*I EIO 

20125  AT*0  8 AFRONT "0  8 ASIDE-0 
20130  DO  18  I-I.NWIN 
20140  PRINT  710*1 
20150  RE*D«AA!i*l).NNIl><AA!I.2> 

20160  AA! I *2 )*AA! 1*2)/ 1000*0 

20161  AT*AT*AA! 1*1) 

20162  M*NNC I ) 8 GOTO! 12* 1 4* 1 4)*M 

20163  12  AFRONT*AFRONT*AA!I«l  ) 

20164  GOTO  18 

20165  14  ASIDE*ASIDE*AA(I.l > 

20170  18  IF!AA!I.2).LT.0ELAY>0ELAY*AA!I,£) 

20175  AFRONT*AFRONT/AT  8 ASIOE*ASIDE/AT 

20180  700  FORMAT </• INPUT  NUMBER  OF  OPENINGS  AND  ROOM  VOLUME  !CF)*. «) 
20200  710  FORMAT!/* INPUT  AREA  (SO  FT)*LOCATION  CODE  6 DELAY ( MSEC > *. 
20210*  *FOR  WINDOW** 12* * ) 

20230  G*l«4  8 G2« 1 */G  8 G3*l.-G2  8 G4.2./G3 
20240  PP2*.I9I2 

202 SO  G*SGRT!G*P0*32.*I44./RM00> 


20260  TAU»2.*!V3**!l./3.))/C 
20270  0T*TAU/4.0 
20280  RETURN 
203 IOC 

203*0  13  P30«P0 
20330  TT-0.8  T0*0. 

20340  RH030-RH08 

20350  L£*«FALSE.  8 L3*. FALSE. 

20360  RETURN 

20370C 

20380  II  IF!Ll JG0T8  52 
20385  IF(L2.A.L3)G8T0  « 

20390  52  DDT* < TIME* TO) *0*5 
20395  HTOP-2 

20400  53  IF(CDT.LT*DT)GOTO  51 
20410  50  D0T*O.5*D0T 
20415  !ST0P«2*!ST0r 
20420  08  TO  S3 
2043C  51  CONTINUE 
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20440  DO  99  I • I # I ST0P 

20 450  TI*T0*I4D01 

20460  IF (TT.GI.TOJG0  TO  99 

20470  0M*0.  S WW«0.  S NW*0 

20480  DO  500  Ksl.NWIN 

20490  M«NNIK)  S DLY*AACK. 2 >*0.000001 

20500  IF  IDLY .GE.TT  >00  10  500 

20510  G0T0U5. 16.16). M 

20520  15  CDFsl.O 

20530  IFITT-T020.20.21 

20540  20  PI  I *<TC-TT)*<PR-PC )/TC*PC 

20550  PII«P11*P0 

20560  00  70  30 

20570  16  CDFs-0.4 

20600  21  R«TT/TO  S RR*I.-R 

20610  PDsPD0*RK4RR*£XP<-2.»R> 

20620  PS*PS0»RK4EXP<-R> 

20630  PI  I *PS*C0F 4P0 
20640  PI  I *PI 1 *P0 

2065030  RH0l«KH00»<(PI t/P0>*«G2> 

20660  IFIP1I-P30>36.36.37 
20670  36  JSIGNs-1 
20680  L2«.TRUE« 

20770  303  P2«PI1 

20780  RH02»I IP2/P30 )4*G2 > 4RH030 

20790  Xsp30/RH030 

20800  G0  T0  38 

20810  37  JSlGNa*! 

20820  306  P2»PP2*P11 

20830  RH02«IIP2/P1 1 >*4G2)*RH0i 

20840  X*P1|/RHBI 

20850  38  U22*G4«<X-P2/RH02>*32.*!44. 

20860  IF I U22. 40.39.39 

20870  40  PRINT. 4U22  NEGAT 1VE4.U22 

20880  ST0P 

20890  39  U2«SGRT<U22 )*J3 IGN 
20900  DDM«U24RH02*AA<K.l >*00T 
20910  DM«0M*D0M 
20920  UW«WV*P1 I«ODN/(G3*RH0I > 

20925C 

20930  500  CONTINUE 
20940  P30JP30*(G*I • 14VR/V3 
20950  RH03OsRH030*DM/V3 
20960  99  CONTINUE 
20970  TO-TT 
20980  P3»P30-P0 

20982  IFTTINE.GE.10L3s.THUE. 

20983  RETURN 

20984  9 R*T IME/TO  * RR*1 .0-R 

20985  PO«POC4RR*RR4EXP< -2 .0*R  > 

20986  PS«PS»*RR*EXPI-R> 

20987  P3«PS*PD*IAFR0NT-O.4«AS!DE> 

20990  999  RETURN 

21020  END 

300  00  SUBROUTINE  RES ISTI IENTRY > 

300 1 OC  • THIS  SUBROUTINE  DETERMINES  THE  RESISTANCE  FUNCTION. 

30020CI  TRANSFORMATION  FACTORS.  AND  REACTION  COEFFICIENTS  FOR 
300300  A REINFORCED  CONCRETE  FLAT  SLAB 
300  40C 

30050  COMMON  KlNC.LOTYPE.KRF.KRAND.TlME. I.Yt I00>.8»8U.YU.YFAIL. 
30052*  ZL3.HS.FDY.AREA.ZMASS.ZKLM.VSI.VS2.PS0.PO8.PR.PEXT.7C.TC.TO. 
30054*  PO. DELAY. S 

30070  COMMON  /SHEAR/  ISHEAN. JSHEAR. VSHEAR.MEMB 
30080  REAL  N. IG.MUI4). 1CR<4>. IC. IAVG.KE 
30090  DIMENSION  ASIA) .APS  14). D( 4>.DP< 4) 

30100C 

30110  G0T0I4.500. 45). IENTRY 
30I20C 

30130C  • ENTRY  1.  INPUT  AND  ECHO  SLAB  AND  RZ INFORCEMENT  PROPERTIES  * 
30  1 40  4 PRINT  600 

30150  READ.ZLS.C2.HS.FPC.FDY.ZL0.H0 

30160  FDC«I.25*FPC 

30170  ECs57619.0»S8RTIFPC) 

30180  ES>29E6 
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PROGRAM  FLAT  (CONTINUED) 


301*0  AR£A*ZLS4ZLS-Cft*C2 

30200  ECKIP«£C/I000.0  S F.SKIP*ES/ 1000.0 

30210  PRINT  670 

30220  DO  8 1*1.4 

30230  PRINT  610. I 

30240  8 READ.ASC I >»DC I I.APSC I J.DPCI > 

30242  PRINT  720 

30244  READ. ISHE4R 

302S0  PRINT  7| I 

30260  READ.MEMB 

30270  IF  (MEMB.EO-O >G0T8  15 

30280  PRINT  706 

302*0  READ.ASCS 

30300  ASCS«ASCS/I2.0 

303  IOC 

30320C  • DETERMINE  PROPERTIES  INDEPENDENT  8F  FDY  * 

30330  IS  N*ES/£C 

30340  ZHASS*IS0.0*AHtA4HS/< ISO .0*1 728.0) 

30350  PRINT  620.ZLS.C2.HS.FPC.FDC.ECK1P.F DY.ESK IP. ZLD.HD 
30360  PRINT  630 
30370  08  I 10  1*1.4 

30380  P*ASCI>/CI2«0*DCI>»  * PP*APSC l >/C I2.04DCI > > 

303*0  PRINT  640.I.ASCI>«P.0CI).APSC1>.PP.DP(1> 

30400C  • CHANGE  UNITS  • F REINFORCEMENT  FR8H  SG  IN. /FT  TB  SO  IN./ IN. 
30410  AS(I >*ASf 17/12.0  S APS< I >*APSC I 7/12.0 
30420  110  C8NT1NUC 

30430  I6»HS**3/ I2*CN-I >*(AS(I ) *CD< 1 l-HS/2 >**2*APS U )*( HS/2-DP Cl > >4*2 > 

30460  RETURN 

30470C 

30480C  • ENTRY  2.  DETERMINE  HALL  PROPERTIES  DEPENDENT  ON  FDY  • 

30490  45  CALL  MOMENT CFDC.F DY.ES.N.O. 1 .O.AS.APS.D.DP.MU. ICR* IC  > 

30500  SUMMP*MUCI  J*MUC21*MUC3>'*IU<4) 

30510  1AVB-0.S*<1G«ICR(1;> 

30520C 

30530C  * DETERMINE  RESISTANCE  CURVE  FOR  SLAB  * 

30540  0U*4.0*CZLS«C2>*SUMMP/.ZLS*AREA> 

30530  KE*18*.0*EC*IAVG/CZLS-0.5«C2>**4 
30560  YU*OU/KE 
30570  YT»**9.* 

30590  YFAIL*YU*0.I/CASC1>/0<1>) 

30600  IF<YFAIL.GT.30.0*YU>YFA1L«30.0*YU 

3C6I0  IFCMEMB.NE.t  JGOTO  2S 

30620C  • TENSILE  MEMBRANE  BEHAVIOR  • 

30630  20  TS*ASCS*FDY 

30640  YT*8U4ZLS*ZLS/C20.25*TS» 

30642  0T«6 J 

30644  IFCYT.LE.YFAILIGOTO  22 
30646  YT*YFAIL 

30648  0T«20.8S4YT*TS/<ZLS*ZLS) 

30650  22  IFCYFAlL.LT. 0. I 54ZL5 >YFA 1L*0.  -ZLS 

30660  WFAIL*0. I 5*2G.25*TS/ZLS 

30670C 

30680C  • ADJUST  LOAD-DEFLECT  If N CURVE  FOR  SLAB  DEAD  LOAO  4 
30690  25  0DL*t  30.04HS/ 1 728*0 
30700  Y0L*0DL/KE 

30710  QU*OU-QOLS  0T*0T-0DLS  OFAIL-OFAIL-ODL 
30720  YU«YU*YDLS  YT-YT-YDL*  YFAIL»YFAIL-YDL 
30730  IFCKRANO.NE.DPRINT  633.0DL.YDL 

307  40C 

30750C  OUTPUT  LOAD-DEFLECTION  CURVE 
30760  IFCKRANO.EO.IJGOTO  335 
30770  PRINT  650 
30780  'f CSEKS-EO.I  7G0TO  332 
307*0  PRINT  660.0U.YU.0U.YFAIL 
30  8 0 0 GOTO  335 

30805  332  IFCOT.NE.OUJGOTO  333 

30*10  PRINT  660.0U.YU.01.YT.QFAIL.YFAIL 

30812  GCTO  335 

308)4  333  PRINT  660.0U.YU.0U.YT.0T.YT.0FAIL.-TAIL 
30820  335  CONTINUE 
30  8 22C 

30824C  * CALCULATE  MINIMUM  SHEAR  RESISTANCE  * 

308  2 6 VPS*3.0*S0RTCFPC> 

30828  66*C2*D<4> 
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PROGRAM  FLAT  (CONTINUED) 


30830  8SHRt*4.O*B0«(HS*HU>*VPS/(ZLS*ZLS-B0*B0> 

30832  B0*ZLO*(D(4)-HO> 

30834  8SHH2*4.O*B0*MS*VPS/ (ZLS»ZLS-B0«80> 

30836  VBS«2.0»S8Rt<F,JC) 

30838  8SHH3*HS*VBS/(O.S*(ZLS-C2>-DO>> 

30340  8SHEAR*8SHKI 

30841  IF (KRAND.NE. 1 JPRINT  9 57, OS HR  1, OS HR 2, OS HR 3 

30842  IF (8SHR2.LT .8SHEAR >0SHLAH*8SHR2 
3084  4 IF  (QSHH3.L1 .05HEAH >8SHEAR*0SHR3 
30846  8SHEAR*0SHEAR-80L 

30850  IF  <KRANO<NE<I )PR INI  695.0SHEAK 
30838  VSMEAR-0SHEA|»*ARIA*0.8S 
30860  RETURN 
30870C 

30880C  • ENTRY  3.  DETERMINE  THE  RESISTANCE  AS  A FUNCTION  OF  Y(!>  • 
30885  500  1F(JSH£AH.£8.I JG8T0  520 
30890  IF(Y(I).GT.YU)G0T0  510 
30900C 

309 IOC  ELASTIC  RANGE 

30920  8*Y < I )*KE 

30930  ZHLM«0.64 

J094C  VSI-0.04  S VS2*0.2I 

309So  RETURN 

30960C 

30970C  PLASTIC  RANGE 

30980  510  IF(Y(I).GT.YFAIL>G0T0  530 

30990  ZRLM«7. 0/12.0 

31000  VSI*l. 0/28.0  S VS2*6. 0/28.0 

31010  1F(Y(I).GT.YT)G0T0  520 

31020  8*8U 

31030  RETURN 

31040C 

3I050C  TENSILE  MEMBRANE  RANGE 

31060  520  8*8T*(Y(I)-YT)*(0FAIL-QT>/(YFAIL-YT) 

31070  RETURN 
31080C 

3I090C  FAILURE  (SET  RESISTANCE  10  VERY  SMALL  VALUE) 

31100  530  8-lE-ll 
31 1 10  RETURN 
31  I20C 

31130  600  F8RMAT I/9INPUT  LS»C2»>  ~«»C.FDY»LD»HU*»  ♦ > 

31140  610  FORMAT (• INPUT  AS.O.A'b.--  F0R  SECT I0N*. 12. t ) 

31150  620  FORMAT (/9PR8PERT IES  OF  R/C  FLAT  SLAB  OR  PLATE*./ 

31160*  • LS  «*.F6. 1 * * IN.  C2  **.F6.|.«  IN.*.6X.*HS 

31170*  F6. 1 »•  IN.*,/,*  F ' C **.F7.|.*  PSl  FDC  **.F7.I. 

31180*  * PSI*,5X,*EC  **,F7 • 1 , * RSI*,/,*  FOY  »*,FB.I.*  PSI*. 

31190*  3X,*ES  ■*»F8.I»*  RSI*./.*  LO  **.F6.|,*  IN.  HD  **,F6.|, 

31 1 91 ♦ • IN.*) 

31200  630  FORMAT </*REINF0HCENENT  VALUES*/*  SECTION  AS  (P)*. 
31210*  9X.*0*.8X.*A'S  (P • )*.8X. *D* *./ . 8X» *<S8  IN./F T >*, IOX, 

31220*  • ( IN. ) (SO  !N./FT)*,IOX.*(IN.)*> 

31230  633  F0RMAT(/*80L  **.T6.2,*  PSI  YDL  **,F8.2,*  IN.*) 

31240  640  FORMAT ( 1 5, FI l .4,*  < *.F6.4» • ) *.F9. 3»F1 0. 4. • (*,F6.4,*)*,F9.3) 
31250  650  F;  |MAT(/*LOAD-OEFLECTION  CURVE*,/,  4X,  *8  (PSD  Y (IN.)*) 
31260  660  FORMAT (F9.2,F12.4) 

31270  670  FORMAT ( I H ) 

31300  695  FORMAT ( / *8SHEAR  **»F9.2.*  PSI*) 

31310  706  FORMAT(/*INPUT  CONTINUOUS  REINFORCEMENT  (S8  IN./FT)*,*) 

31320  711  FORMAT!/* IS  TENSILE  MEMBRANE  TO  BE  INCLUDED  *. 

31330*  *(0*N0»1«YES)*,*) 

31335  720  FORMAT (/*IS  SHEAR  FAILURE  T0  BE  CONSIDERED*. 

31336*  • (0*N0) 1 »YES)*» ♦ ) 

31338  957  F0RMAT(/*8SHRI  **.F 1 0.3,/. *8SHR2  **.F I0.3./«*8SHR3  **,F1Q.3> 
31340  END 

35000  SUBROUTINE  MOMENT(FDC.FDY, ES.N.PV.B. AS.APS.D.OP.MU. ICR, IC ) 

350 IOC  THIS  SUBROUTINE  DETERMINES  THE  ULTIMATE  MOMENT  CAPACITY  AND 

35020C  CRACRED  MOMENT  OF  INERTIA  FOR  REQUIRED  SECTIONS 

35040  REAL  HI ,R2»R3»RU0.N. IC. !CT0T»>U(4>. ICR(4),AS(4),APS(4),D(4),DP(4) 

3S050C 

35060C t DETERMINE  VALUES  0F  CONCRETE  PARAMETERS 
35070  45  R1«0.94-F0C/26E3 
35080  K2«0.50*FDC/8E4 

35090  K3*(3900.0*0.35*FDC)/(3E3*0.82*FDC-FDC*FDC/26E3) 

35100  EPSC*0.004-FDC/65E5 
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351  50Ct  *•••»•••••••• 

35160CI  * DETERMINE  ULTIMATE  MOMENT  CAPACITY  AND  CRACKED  * 

3S170C)  * MO/rENT  8F  INERTIA  FSR  REQUIRED  SECT  18NS  • 

3S180C) 

351  TOC 

35200  !l«Oi  ICT8T-0 
35210  08  170  1*1,4 
35215  MU<I>*0 

35220  IF (AS< I >.EQ.O)G0T0  170 
35230  1 1- 1 1 • I 

35240C)  ALL  PROPERTIES  ARE  COMPUTED  F OR  A WIDTH  B 
35250  TENS*ASU)*FDY*PV 
352*0  IF<APSU).LE.0>G8T0  150 
3S270C 

3S280C)  WALL  HAS  COMPRESSION  REINFORCEMENT 
35270  C«KI*K3«F0C4B*DP<I) 

35300  TERM! *0.5*<T£NS/APS< I >*ES*EPSC ) 

35310  TERM2*ES*EPSC*<TENS-C)/APSC  I J 
3S320Ct  DETERMINE  LOCATION  OF  NEUTRAL  AXIS 
35330  1F<TENS.LC.C)G8T8  140 
35340C 

3S350CI  KUD  > D* 

353*0  FPS*TERM1 *K3*FDC/2 .0-S8RTC  < TERM! »K3*FDC/£.0)**2 
35370*  -(TERK2*ES*EP3C*K3»FDC>> 

353(00  F*S  MUST  BE  *•  FDY 
35390  IF(FPS.LT.Fr>Y)G8T0  130 
35400  FPS«FDY 

35410  130  TPSaAPS(n*(FPS-K3«FDC> 

35420  KUD*<TEN-TPS)/<K1*K3*F0C*B> 

35430  MU<l)*<TENS-TPS)*CD«I>-K2*KUD>*TPS*tDt I>-DP(I>> 

35440  ICR( I >«B*KUD**3/3.0*N*ASC I !*<D< I )-KUD)**2 
35450*  *<N-I J*APSC I »• CKUD-DP < i ) >»*2 

354*0  GOTO  152 
35470C 

354800  KUD  * D* 

35490  140  rpS»-TERMl*S0RT«TERMI**2-TERM2> 

355000  F*S  MUST  BE  «•  FDY 
35510  IF <FPS<LT<FDY7G0T8  145 
35520  FPS«FDY 

35530  145  TERM3»TENS*APS<!»*FPS 
35540  KUD*TCRH3/<K1«K3*FDC*8) 

35550  MU<I>*TEHM3*<D<I)-K2*KUD>>APS<t >*FPS*(DCI)*DP(I>> 

355*0  ICRC  l )*B*KUD**3/3*N*AS< I )*«0<  I >-KUD)**2*N*APS(  I >*<DPM  >-KUD>**2 

355*0  GOTO  152 

35S80C 

355900  WALL  HAS  NO  COMPRESSION  REINFORCEMENT 
35*00  150  KU0*TENS/<KI«K3«F0C*B> 

35*10  MU<l>*TEMS*<D<l>-K2*K0D) 

35*20  ICRU  >*B*KU0**,V3.0*N»AS<1  >*<D(  I >-KUD>**2 
35A30C 

35*40  132  ICTOT*ICTOT*1CK(I> 

35*50  170  CONTINUE 
3S**0C 

35*700  DETERMINE  AVERAGE  CRACKED  MOMENT  8F  INERTIA 
35*80  175  ICalCTOT/II 
35*90  RETURN 
35700  END 

70000  SUBROUTINE  RANDOM  < I ENTRY) 

70010C  THIS  SUBROUTINE  INPC  MEAN  AND  STANDARD  DEVIATIONS  FOR  RANDOM 
70020C  VARIABLES)  GENERATI  \NDOH  VALUES)  AND  CONTROLS  REQUIRED 
70030C  NUMBER  OF  CASES  TO  l N)  AND  8UTPUTS  FINAL  RESULTS  AND  SUMMARY 
70040C 

70050  COMMON  XINC.LDTYPE*KRF*KRAND» TIME. 1 1 * YI 1 00)*Q*QU> YU»YFA!L» 

70052*  ZLS>H5»FDY»AREA,ZHA3S»ZKLH.VSI,VS2»PSO*PDO»PF:»PEXT»PC*TC*TO» 
70054*  PO.DELAY«S 

70070  COMMON  /SHEAR/  1SHEAR, JSHEAR, VSHEAR.MEM3 

70080  COMMON  /RAND/  TIKEC 

70090  DIMENSION  CHI25I7 >.CH!97S<7 >, TOISTO ) 

70IOOC 

701  IOC  VALUES  FOR  97. SS  <F*1 9,24,29,34,39, 44, 49) 

70120  DATA  CHIBS/. 4*08# .51 *7, .5533. . 5825» .*0*5# .*2*7. .6440/ 

70130  DATA  CHI 97 5/ 1 • 7295. 1 . *402 . I . 57** . I . 5284, I . 4903, 1.4591,1.4331/ 

70140  DATA  TDIST/2.093, 2. 0*4,2. 045, 2.032, £.022, 2.0I*,B.0I0/ 
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PROGRAM  FLAT  (CONTINUED) 


70160 

70170 

70 ! 80C 

70190 

70200 

70210 

70220 

70230 

70240 

70250 

70260C 

70270C 

7027  5 

7026P 

7029C 

704I0C 

70420 

70430 

70440 

7044S 

70450 

70460C 

70470C 

70570 

70580 

70585 

70590 

70600 

70610 

70620 

70630C 

70640 

70650 

70660C 

70670C 

70730 

70735 

70737 

70738 
70740 
707 50C 
70760C 
70770 
70780 
70790 
70800 
708  IOC 
70820 
70830C 
70840 
70850C 
70860C 
70870C 
70880C 
70890 
70900C 
70910 
70980C 
70930C 
70940 
709S0C 
70960C 
70970C 
70980C 
70990* 
7I000C 
71010 
71020 
71030 
•»!040 
71050 
71060 
71070 
71080 


G3T0<5. 50.70). 1ENTRY 
5 xdummy*xhokmi <-i .0*0.0. i .0) 
INITIALIZE  RANDOM  number  generator 
PRINT*/* • INPUT  NR AND** 

READ. NR AND 
00  47  I-I.NnAND 
xdumny-xnormi (o.o.o.o*i.o) 

47  CONTINUE 

INDEX-0*  SPSO-O*  SSP-U-0 
ICHECK-20 


INPUT  MEAN  AND  STANDARD  DEVIATION  FOR  RANDOM  VARIABLES 
1F(KRF.LG.0)G0T0  30 
PRINT  87 
READ.SMEAN.SSD 
REINFORCED  CONCRETE  HALLS 
30  PRINT  86 

READ.FOYHEAN.FDYSD 
IFIKRF.EO.I JPRINT  96 
IF(KRF.£S.O)PR!NT  97 
RETURN 
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GENERATE  RANDOM  VALUES 
50  FOY4XN0RMI (O.O.FDYMEAN.FDYSD) 

IF (FDY«LE«O)G0TO  50 
IF  (KRF  . Efi.OGOTO  65 
S*XN0RM1 (O.O.SMEAN.SSD) 

IF (S.LE.O )GOTO  60 
Index* index* i 
RETURN 

SUM  VALUES  OF  PSO  AND  PSB**2  FOR  USE  IN  STATISTICAL  ANALYSIS 
70  SPSO-SPS04PSO 

SSPSO-SSPS0«PS09PSO 
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OUTPUT  FINAL  RESULTS 

76  IFIKRF.Efl.l  >PRINT  92.FDY.S.PS0.TIMEC 
IF (KRF.E9.0 JPRINT  90.F0Y.PS0* T IMEC 
IF; JSHEAR.EQ.l )PRINT  *13 
IFIJSHEAR.NE.I JPRINT  120 
IFdNDEX.LT.  ICHECK  JRETUHN 


80 


DETERMINE  MEAN.  STANDARD  DEVIATION.  AND  STANDARD  ERROR  FOR  PSO 
ZNO-INDEX 
ZMEAN«SPSO/ZNO 

SD»S8RTdSSPSO-ZN0*ZMEAN*ZMEAN>/ZN0> 

STDERH*SD/(SaRT(ZNO-l )) 

CHECK  IF  MAXIMUM  SF  SO  PSO  SAMPLES  OBTAINED 
IF< INDEX .EG. 50  > GO  TO  62 

CHECK  IF  95*  CONFIDENCE  INTERVAL  FOR  MEAN  PSO  VALUE  IS 
IF (STDERR*TD 1ST t ( INDEX* I 5>/5>/ZHEAN.GT .0.10)0070  6 1 


CONFIDENCE  INTERVAL  IS  WITHIN  10*  - DETERMINE  UPPER  LIMIT  OF 

95*  CONFIDENCE  INTERVAL  FOR  STANDARD  DEVIATION 
PROBABILITY  VALUE  AND  ITS  95*  CONFIDENCE  INTERVAL  UPPER  LIMIT 
62  SDU*>SD/  (SQRTf  CHI25I  < INDEX  - I 5 >/5>  > > 

CHECK  IF  MAXIMUM  OF  50  PSO  SAMPLES  OBTAINED 
!F< INDEX. EG. 50 )GOTO  53 

CHECK  IF  UPPER  VALUE  OF  95*  CONFIDENCE  INTERVAL  FOR  STANDARD 
DEVIATION  IS  WITHIN  0.|0*MEAN  OF  THE  STANDARD  DEVIATION 
IFCdSDU*SD)/ZMEAN).GT.0.10>G0T0  61 


95*  CONFIDENCE  INTERVAL  IS  WITHIN  10*  FOR  BOTH  MEAN  AND  90* 
PROBABILITY  VALUE  --  THEREFORE  SUFFICIENT  SAMPLES  OBTAINED 
DETERMINE  95*  CONFIDENCE  INTERVALS  FOR  MEAN.  STANDARD  DEVIATION 


AND  10*  AND  90*  PROBABILI t i VALUES 
53  ZMEANL«ZMEAN-STDERR »T0 1 ST  d INDEX  - 1 S )✓ 5 > 
ZMEANU»ZMEAN*STDERR*TDISTd  INDEX- 1 5>/S> 
SDL«S0/ (SQRTICH197  5< I INDEX- 1 5>/5) ) > 
PI0«ZMEAN-I .262»S0 
PIOL»ZMEAN-I .282*SDU 
PIOU*ZMEAN-l .2829SDL 
P90«ZMEAN«I .282*SD 
P90L«ZMEAN*I .282*SDL 
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71090  P90*ZM£AN«I .282*SD 

71100  P93U-ZMEAN.1 .282*S0U 

71 1 10  P90U«ZMEAN*I .282*SDU 

71 I20C 

7I130C  0UTPUI  STATISTICAL  PARAMETERS  OF  INCIPIENT  COLLAPSE  PRESSURE 
71140  PRINT  100.ZMEAN.ZMEAN1  . ZMEANU.SD. SOL.SDU.PIO.PIOL.PIOU. 

71  ISO*  P90.P90L.P90U 

71160  PRINT  103. INOEX.STDERR 

71170  GOIC  999 

71 1B0C 

7I190C  9SX  CONFIDENCE  INTERVAL  IS  NOT  WITHIN  10X  FOR  BOTH  MEAN  AND  90 
7I200B 

7I210C  VALUES  — THEREFORE  OBTAIN  S AODtl I8NAL  SAMPLES 
71220  61  ICHECKsICHECR*S 

71230  RETURN 

71240C 

71270  86  FORMAT (/‘INPUT  MEAN  AND  STANDARD  DEVIATION  FOR  FDY*»*> 

71280  87  FORMAT (/‘INPUT  MEAN  AND  STANDARD  DEVIATION  FOR  S*»  « ) 

71290  90  F0RMAT(F9.1»F1O.2.FI4.3.«> 

71310  92  F0RHAT(FF.|.Fl|.2.F10.2*F14.3»t> 

713S0  96  FORMAT (///. SX. *F DY *. 9X. *5*. 8X.*P SO*. 6X. ‘COLLAPSE  TIME‘7 

713SS  97  FORMAT (///*  4X.FDY.9X. *P50*»  4X» ‘COLLAPSE  TIME*) 

71360  100  FORMAT (///.11X. ‘STATIST I CAL  PROPERTIES  OF  INCIPIENT  PSO*. 

71370*  //.39X.*9SX  CONFIDENCE  LIMITS*./. 7X. ‘I  I EM*. 1 BX» 

71380*  ‘VALUE  LOWER  UPPER*.//.*  MEAN‘.F29.2. 

71390*  2F 12.2.//. • STANDARD  DEV IAT ION*.F 1 S.2.2F 12.2.//. 

71*00*  • IOX  PROBABILITY  VALUE*. 3F  12.2.// .■ 

71410*  • 90S  PROBABILITY  VALUE*. 3F 1 2 .2 ) 

71420  IOS  FORMAT (// . SX. *NUMOER  OF  OBSERVATIONS  >.I3./>bX. 

71430*  -STANDARD  ERROR  **.FS.2» 

71440  110  FORMAT(SX.*:SHEAR  FAILURE)*) 

71443  120  FORMAT ( * •) 

714S0  999  STOPS  END 

71460  FUNCTION  XN0RM1 (X.A.B) 

71470  IF (X > 10.20.20 
71480  10  XO-RANFCl  .0) 

71490  20  XI «RANF (0*0 ) 

7IS00  X2*RANF(0.0> 

71310  Y*SOfiT(-2.O*AL0G(XI  ) >*(C0S(6 .2831 84*X2>  > 

71320  XNORMI«A*y*B 
71330  RETURN 
71540  END 
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NUMKNt'l-Vr'TM.; 


AiV'1  ot  1'nm‘ivii'  seel  ion,  sq  in. 

Area  ol  'ins  t<m  stool  iii  ro  inferred  ron- 
n-vio  rilnii  per  unit  wiilt.li,  sq  in. /in. 

Aivn  ol  window,  sq  I t - — 

Width  ot  cross  section,  in. 

Width  ol  wall  tie  tween  eel  tie*  ol  door  open- 
ing and  aroaway  support  wall,  in. 

Distance  1'rom  compressive  lace  ol  rein- 
loi'ced  concrete  slnl)  to  centroid  ol 
tension  steel,  in. 

Compressive  strength  ot  ()-  by  12-in. 
concrete  cylinder,  psi 

Dynamic  compressive  strength  of  concrete, 
ps  i 

Dynamic  yield  strength  of  reinforcing 
steel,  psi 

Ultimate  compressive  strength  of  masonry 
uni t wall , psi 

Modulus  of  rupture,  psi 

Static  yield  strength  of  reinforcing 
s tcel , psi 

Soil  depth,  ft 

Lateral  soil  coefficient 

Span  length,  in. 

Horizontal  length  (width)  of  wall,  in. 

Vertical  length  (height)  of  wall,  in. 

Lending  moment  per  unit  width,  in. -lb/in. 

Ultimate  moment  capacity  per  unit  width, 
i d . -lb/ in . 

Steel  ratio,  tension  steel  

Unit  pressure  exerted  against  any  sur- 
J ace  varying  with  time,  psi 


Ph  Lateral  static  soil  pressure,  psf 

pr  Reflected  overpressure,  psi 

p,j  Peak  incident  overpressure,  psi 

P-r  Total  lateral  load  acting  on  wall,  lb 

Pv  Total  vertical  force  per  unit  width, 

lb/in. 

ci  Unit  resistance  for  uniiormlj^Joaded 

member,  psi 

S Clearing  distance,  ft 

t0  Clearing  time,  front  face,  sec 

t0  Duration  of  positive  overpressure,  sec 

t*  Thickness  of  wall,  in. 

V Total  shear  per  unit  width,  lb/in. 

( Vc ) , Total  shear  capacity  per  unit  width 

at  support,  lb/in. 

(ve)„  Unit  shear  capacity  per  unit  width  at 
support,  psi 

W Weapon  yield 

Y Unit  weight,  pcf 

0 Unit  weight  of  soil,  pcf 

rp  Coefficient  of  flexure 
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